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ABSTRACT 

The  current  method  for  creating  tactical  logistics  estimates  in  the  Army 
inadequately  incorporates  historical  data  on  the  actual  consumption  of  supplies.  The 
automated-logistics-planning  system  described  in  this  thesis  addresses  this  deficiency. 
The  program  developed  in  this  research  produces  general  estimates  for  selected  supply 
items  by  referencing  equations  and  variables  from  current  Army  planning  documents 
and  performing  the  necessary  calculations.  The  program  uses  reasoning  to  identify 
previous  operations  which  are  analogous  to  the  current  operation.  Separate  criteria  are 
used  to  identify  the  strongest  analogies  to  the  current  operation  for  each  of  five 
categories  of  supply  items.  Information  contained  in  the  historical  records  of  the  three 
strongest  analogies  in  each  category  is  used  to  revise  the  general  estimates.  The  revised 
estimates  are  hopefully  more  accurate  in  predicting  actual  suppiy  requirements  for  the 
current  operation  than  the  estimates  generated  by  formula  alone. 
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Program  T op  Level  Design 


I.  INTRODUCTION 


A.  BACKGROUND 

The  conduct  of  military  operations  is  inextricably  interwoven  with  the  ability  to 
support  them.  One  of  the  five  Principles  of  War,  Mass,  has  as  its  premise  that  superior 
combat  power  must  be  concentrated  at  the  decisive  place  and  time  in  order  to  achieve 
decisive  results.  Logistics  planning  is  fundamental  to  achieving  this  aim.  It  defines 
realistic  scenarios  for  the  study  of  alternative  courses  of  action,  and  determines  directly 
the  length  of  time  that  weapons  and  units  can  be  effective. 

In  the  United  States  Army,  the  tactical  commander  is  responsible  for  logistics 
planning.  He  normally  has  assigned  to  him  certain  staff  who  assist  him  in  estimating 
the  logistics  requirements  of  anticipated  or  considered  actions,  and  in  incorporating 
whatever  limitations  exist  into  his  battle  planning.  Logistics  planning  at  this  level  is 
dominated  by  the  creation  of  estimates  and  the  reporting  of  equipment,  supply,  and 
personnel  status.  Logistics  estimates  are  created  often  and  represent  a  significant  work 
load  for  those  soldiers  whose  job  it  is  to  produce  them  for  the  commander. 

There  are  currently  no  automated  methods  for  assisting  the  tactical  logistics 
planner  in  creating  such  estimates.  Training  Management  and  Control  System 

(TMACS)  is  a  software  system  currently  in  use  in  the  Army  which  assists  operational 
planners  in  programming  and  budgeting  time,  money,  and  supplies  for  training 

exercises  [Ref.  1).  It  does  not,  however,  satisfy  the  need  for  an  automated  aid  in 

preparing  logistics  estimates  for  actual  tactical  operations  and  in  the  conduct  of 
contingency  planning. 

At  the  same  time,  the  military  of  the  Soviet  Union  places  great  emphasis  on 
automated  means  for  enhancing  their  theory  of  control.  The  use  of  computers  to 
perform  referencing  and  calculations  is  actively  pursued.  Specifically,  the  referencing  of 
applicable  planning  factors  and  execution  of  mathematical  formulae  in  combat 

planning  is  an  area  in  which  they  have  exhibited  considerable  interest  [Ref.  2). 

This  thesis  investigates  the  nature  of  logistics  estimation  in  the  tactical 
environment.  It  identifies  the  merits  of  employing  an  automated  system  to  perform 
some  of  the  current  labor-intensive  manual  referencing  of  equations  and  planning 
factors  involved  in  creating  a  logistics  estimate.  A  prototype  of  such  an  automated 


system  is  one  of  the  products  of  this  research.  Execution  of  the  prototype  on  a  sample 
database  produces  output  that  is  easily  understood  by  the  logistics  planner,  and  offers 
significant  time  savings  in  the  preparation  of  logistics  estimates. 

Reasoning  is  used  in  the  prototype  system  in  an  attempt  to  provide  more 
accurate  logistics  estimates  than  are  currently  provided  by  strict  adherence  to  the 
procedures  outlined  in  current  Army  planning  documents.  The  reasoning  algorithm  is 
the  most  interesting  facet  of  the  prototype.  The  aim  of  all  of  this  work  is  to  provide 
the  logistics  planner  with  an  aid  in  providing  timely,  useable,  and  well  considered 
logistics  estimates  to  the  battlefield  commander. 

B.  RESEARCH  TOPICS 

The  first  area  of  research  centers  around  the  process  by  which  logistics  estimates 
are  created  today.  This  process  is  strictly  manual.  A  single  reference  document,  Army 
field  manual  FM  101-10-1,  contains  equations  and  planning  factors  which  the  logistics 
planner  uses  in  calculating  the  quantity  of  several  supply  items  required  to  conduct  an 
operation  [Ref.  3].  The  equations  and  planning  factors  used  in  these  calculations  are 
dependent  upon  several  key  descriptions  about  the  operation  for  which  the  estimate  is 
being  prepared.  The  following  tasks  need  to  be  performed  by  an  automated  system  to 
duplicate  the  actions  of  the  human  logistics  planner: 

1.  identification  of  which  attributes  of  an  operation  are  critical  to  the  selection  of 
appropriate  equations  and  planning  factors  needed  to  calculate  logistics 
estimates 

2.  determination  of  how  such  information  can  best  be  obtained  from  the  user  of 
the  prototype  program 

3.  performance  of  the  aforementioned  references  and  calculations. 

The  second  area  of  research  is  concerned  with  reasoning  about  the  similarity 
between  operations.  Operations  which  have  the  same  value  for  certain  key  operation 
attributes  can  be  considered  analogous  to  the  current  operation.  These  analogies  are 
then  evaluated  to  determine  the  strength  of  the  similarity  between  them  and  the  current 
operation.  The  criteria  used  to  establish  the  analogous  nature  of  previous  operations 
and  the  criteria  used  to  establish  the  strength  of  the  similarity  between  operations  arc 
both  defined  in  the  program,  but  can  easily  be  modified  to  reflect  user  guidelines.  Once 
the  strongest  analogies  to  the  current  operation  have  been  determined,  research  into 
how  the  data  contained  in  the  historical  records  of  these  operations  can  be  used  to 
adjust  the  previously  calculated  estimates  can  be  pursued. 
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The  third  area  of  research  involves  determining  the  method  by  which  adjustments 
to  the  original  logistics  estimates  are  made.  Analogous  historical  records  contain 
information  on  both  the  original  estimate  and  the  actual  consumption  for  each  of  the 
items  of  supply  for  which  the  program  creates  an  estimate.  The  error  percentage  for 
each  of  the  three  strongest  analogies  in  estimating  the  actual  consumption  of  each  of 
the  supply  items  is  calculated.  Originally,  an  equal  weighting  of  the  error  percentages 
calculated  for  the  three  strongest  analogies  was  used  to  adjust  the  estimates  for  the 
current  operation.  The  final  version  of  the  prototype  handles  the  weighting  somewhat 
differently.  Specifically,  the  error  percentages  are  weighted  according  to  the  strength  of 
the  similarity  between  the  operation  which  generated  them  and  the  current  operation. 
The  composite  error  percentage  is  then  used  in  a  calculation  which  yields  an 
adjustment  to  the  original  estimate. 

The  fourth  area  of  research  deals  with  the  format  and  structure  of  program  input 
and  output.  The  decision  was  made  to  utilize  menus  as  much  as  possible  for  input 
from  the  user.  Errors  are  common  when  using  a  program  of  this  sort.  Where  menus 
are  not  practical,  escape  routines  were  included  to  allow  recovery  from  input  errors. 
Well  structured,  explanatory  output  is  extremely  valuable  in  understanding  the 
behavior  of  the  program.  An  effort  was  made  to  produce  one  page  documents.  The 
reasoning  algorithm  of  the  program  is  illustrated  in  tabular,  one  page  summaries  to 
assist  the  user  in  understanding  how  the  reasoning  is  conducted. 

C.  THESIS  ORGANIZATION 

Chapter  II  discusses  the  manner  in  which  tactical  logistics  planning  is  conducted 
today.  The  data  elements  needed  to  conduct  such  planning  are  identified  and  their 
relationship  to  the  key  operational  planning  document,  the  operation  order 
(OPORDER),  is  explained.  The  linear  equation  model  used  to  calculate  logistics 
estimates  is  outlined,  as  well  as  the  source  and  questionable  validity  of  the  planning 
factors.  The  difficulties  faced  by  the  tactical  logistics  planner  in  producing  logistics 
estimates  are  identified.  A  short  discussion  on  the  type  of  reasoning  expected  of  the 
logistics  planner  in  creating  estimates  concludes  the  chapter. 

Chapter  III  outlines  an  artificial-intelligence  approach  to  creating  the  logistics 
estimate.  An  initial  discussion  identifies  the  anticipated  benefits  of  using  an  automated 
aid  in  assisting  the  logistics  planner  in  creating  the  estimate.  A  lengthy  discussion  o! 
the  reasoning  done  in  the  program  follows.  Specifically,  the  use  of  reasoning  to 
identify  the  similarity  between  operations  is  described.  Examples  are  given  to  illustrate 
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how  reasoning  is  actually  conducted  in  the  program.  The  examples  are  helpful  in 
understanding  the  two  step  approach  to  analogy  evaluation  and  the  selection  cf 
operation  records  for  inclusion  in  the  algorithm  for  adjusting  estimates.  The 
importance  of  simple  input  and  output  formats  is  highlighted,  with  emphasis  on 
designing  program  output  that  reflects  the  reasoning  which  takes  place  in  a  program. 
High-level  design  decisions  in  development  of  the  prototype  are  explained  and  program 
behavior  is  described  in  detail. 

Chapter  IV  discusses  the  potential  of  the  thesis  for  assisting  the  tactical  logistics 
planner  in  creating  logistics  estimates.  The  program  represents  a  new  approach  to 
creating  these  estimates  by  applying  real-world  experience  in  adjusting  estimates. 
Limitations  of  the  program  are  discussed,  as  well  as  possible  enhancements.  The 
concluding  discussion  of  the  chapter  identifies  how  the  application  of  an  automated 
logistics  planning  system  of  this  type  could  be  used  in  other  related  problem  domains. 

The  appendices  are  vital  to  understanding  the  workings  of  the  program. 
Appendix  A  and  Appendix  B  are  demonstrations  of  the  program  execution  cf  the 
logistics-estimate-creation  module  of  the  program.  The  demonstrations  involve  two 
very  different  operations.  The  logistics  estimate  created  in  Appendix  A  is  for  an 
operation  conducted  in  Europe  in  a  temperate  environment.  The  logistics  estimate 
created  in  Appendix  B  is  for  an  operation  conducted  in  Korea  in  a  cold  environment. 
Each  demonstration  includes  the  following  items: 

1.  a  sample  interactive  session  in  which  the  user  inputs  the  numbers  of  weapons 
and  major  end  items  in  the  task  force 

2.  a  sample  interactive  session  in  which  the  user  assign  values  to  several  attributes 
describing  the  operation 

3.  a  one  page  document  produced  by  the  program  listing  all  operations  which 
meet  the  criteria  for  being  considered  analogous  to  the  current  operation 

4.  a  scries  of  one  page  documents  illustrating  the  reasoning  in  the  program 
determining  the  strongest  analogies  to  the  current  program  for  each  category  of 
supply 

5.  a  logistics  estimate  for  the  operation. 

Appendix  C  contains  sample  program  execution  of  the  other  modules  of  the 
program.  There  is  a  sample  interactive  session  which  updates  the  historical  record  of 
an  operation  with  actual  consumption  data.  There  is  a  sample  interactive  session 
which  deletes  the  historical  record  of  an  operation  from  the  historical  files  maintained 
by  the  program.  There  is  a  sample  output  produced  by  selecting  the  print-directory 
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module  of  the  program  which  lists  the  unit  name,  date,  and  update  status  for  all 
operations  in  the  historical  files.  Appendix  C  also  contains  a  sample  of  the  historical 
record  for  an  operation  produced  by  the  print-history  module  of  the  program. 

Appendix  D  is  the  program  implemented  in  Pascal.  Appendix  E  is  a  partial 
implementation  of  the  program  in  Common  Lisp. 


II.  PROBLEM  DEFINITION 


A.  TACTICAL  LOGISTICS  PLANNING  TODAY 

In  tactical  units  of  the  United  States  Army,  the  staff  officer  charged  with  the 
creation  of  logistics  estimates  on  behalf  of  the  commander  is  the  G4  S4  officer.  A 
typical  logistics  plan  might  include  estimates  for  the  following  categories  of  supplies: 

1 .  water 

2.  subsistence 

3.  fuel 

4.  ammunition 

5.  general  supplies. 

To  calculate  estimates  for  supply  items  in  each  of  these  categories,  the  G4  S4  uses 
equations  contained  in  Army  field  manual  FM  101  - 10- 1 .  These  equations  can  be 
thought  of  as  rules.  Certain  attributes  of  an  operation  determine  either  individually  or 
in  combination  the  equation  to  be  used  in  calculating  specific  estimates.  These 
attributes  are  contained  in  a  key  operational  planning  document  called  the  operation 
order  (OPORDER).  The  G4  S4  must  obtain  a  draft  of  the  OPORDER  or  otherwise 
reference  these  data  elements  before  a  logistics  plan  can  be  prepared.  Attributes  which 
directly  influence  how  an  operation  is  conducted  and  the  type  and  quantity  of  supplies 
consumed  in  its  execution  include  the  following: 

1.  mission  to  be  performed 

2.  climate  in  which  the  operation  is  to  be  conducted 

3.  area  of  the  world  in  which  the  operation  is  to  he  conducted 

4.  type.  size,  and  personnel  strength  of  the  task  force 

5.  expected  intensity  of  combat 

6.  ration  policy  during  the  operation. 

There  are  many  other  factors  which  impact  on  the  conduct  of  an  operation.  Current 
Army  planning  documents,  however,  use  only  the  six  attributes  identified  above  in 
selecting  appropriate  equations  from  FM  101- 10- 1.  The  G4  $4  manually  references  the 
aforementioned  attributes  of  an  operation  and  indexes  both  an  equation  and  a 
planning  factor  for  use  in  calculating  specific  supply  estimates.  These  attributes  are 
contained  in  the  operation  order  (OPORDER)  for  the  operation. 


For  example,  to  calculate  the  expenditure  of  5.56mm  rifle  ammunition,  the 
following  steps  are  taken.  First,  the  mission  and  anticipated  combat  intensity  of  the 
operation  are  identified.  Second,  the  attributes  are  used  to  select  the  appropriate 
equation  and  planning  factor  from  the  section  in  FM  101-10-1  covering  ammunition 
estimates.  In  this  case,  the  general  equation  to  estimate  5.56mm  rifle  ammunition  is: 

#  weapons  *  planning  factor  =  estimate. 

Maintaining  data  on  the  number  of  rifles  in  the  task  force  which  expend  5.56mm 
ammunition  is  another  task  which  the  logistics  planner  is  charged  to  perform.  The 
same  methodology  is  used  for  the  other  estimates. 

The  equations  used  to  create  the  supply  estimates  are  simple  and  easy  to 
understand.  The  equations  make  intuitive  sense  as  they  are  a  function  of  the  number 
of  rifles  in  the  task  force  and  a  single  planning  factor.  The  planning  factors  themselves 
are  another  subject.  There  has  been  much  debate  regarding  their  validity.  Much  of 
the  data  in  FM  101-10-1  was  originally  based  upon  experience  in  World  War  II  and 
Korea.  Changes  to  the  data  have  been  made  to  reflect  more  recent  experience  and  the 
results  of  combat  modelling  and  simulation,  but  distrust  of  the  accuracy  of  the 
planning  factors  continues.  (Ref.  4] 

The  current  method  of  creating  estimates  has  another  more  serious  shortcoming. 
The  planning  factors  used  in  the  simple  linear  equation  model  described  above  yield,  at 
best,  very  generalized  estimates.  The  data  does  not  explicitly  account  for  variable 
factors  such  as  visibility,  terrain,  and  the  availability  of  close  air  support.  Each  of 
these  impact  significantly  on  the  conduct  of  combat  operations  and  on  the  rate  at 
which  supplies  are  consumed.  It  is  necessary,  therefore,  that  the  logistics  planner  apply 
reasoned  judgement  in  adjusting  the  estimates  to  reflect  the  particular  set  of  attributes 
of  the  current  operation. 

There  is  no  standard  policy  or  guideline  for  the  logistics  planner  to  follow  in 
making  these  reasoned  judgements.  Every  commander  hopes  to  have  an  experienced 
logistics  planner  who  can  rely  upon  personal  experience  or  insightful  aftcr-action- 
reports  to  provide  the  basis  for  adjusting  the  standard  estimates.  All  too  often,  the 
commander  is  without  such  a  key  individual.  In  addition,  the  commander  and  the  rest 
of  his  staff  continually  create  contingency  and  alternative  operation  plans.  These  plans 
require  that  logistics  planning  be  conducted  with  a  corresponding  cost  in  time  and 
effort.  The  logistics  planner  is  seemingly  always  late  in  delivering  logistics  estimates  to 
the  commander  while  attempting  to  produce  complete,  researched,  and  well  prepared 
plans. 
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An  additional  concern  of  the  tactical  logistics  planner  is  the  recording  and 
retrieval  of  data  on  the  actual  consumption  of  supplies.  A  complete  accounting  of  the 
logistically  significant  data  about  an  operation  is  valuable  in  preparing  future  logistics 
estimates.  A  logistics  estimate  of  an  operation,  together  with  corresponding  actual 
consumption  data  for  that  operation,  support  the  kind  of  reasoning  described  earlier. 
The  time  and  effort  it  takes  to  record  actual  consumption  data  and  link  it  with  its 
associated  logistics  estimate  often  frustrates  intentions  to  create  complete  historical 
records.  The  result  is  that  such  historical  records  do  not  exist  in  many  units.  When 
new  personnel  arrive  and  assume  responsibility  for  logistics  planning  in  the  unit,  they 
are  without  the  benefit  of  historical  data  on  which  to  base  their  estimates. 

In  partial  summary',  the  Army  realizes  that  reliance  upon  the  equations  in  FM 
101-10-1  will  not  yield  acceptable  estimates  in  all  cases.  The  current  method  of 
computing  estimates  is  simple  to  follow,  but  requires  a  considerable  amount  of  the 
logistics  planner's  most  precious  commodity-time.  There  is  also  an  acknowledged 
need  for  applying  experience  in  logistics  planning  to  the  job  of  improving  the  accuracy 
of  these  general  estimates.  Experience  is  a  hard  thing  to  quantify,  however,  and  many- 
tactical  logistics  planners  are  not  experienced.  For  these  reasons,  any  system  which 
significantly  assists  the  logistics  planner  in  creating  estimates  and  performing  associated 
tasks  without  imposing  additional  requirements  would  be  of  great  value. 

B.  SURVEY  OF  PREVIOUS  RELATED  WORK 

Commercially  available  spreadsheet  programs  perform  the  kind  of  referencing 
and  calculations  involved  in  creating  logistics  estimates  as  directed  in  current  Army- 
planning  documents.  Spreadsheets  have  been  used  in  many  business  applications. 
They  are  able  to  adjust  previous  data  to  reflect  changes  in  the  values  of  program 
variables.  The  United  States  Army  Logistics  Center  has  developed  several  templates 
using  a  popular  spreadsheet  program,  LOTUS  1-2-3.  The  templates  use  this  program 
to  create  logistics  estimates  with  equations  and  planning  factors  obtained  from  FM 
101-10-1  and  variables  representing  the  personnel  strength  and  the  equipment 
composition  of  a  task  force.  The  templates  are  intended  for  use  by  logistics  planners  in 
creating  estimates  for  Class  I  (subsistence)  and  Class  III  (POL)  supply  items.  There 
are  no  templates  currently  developed  to  assist  the  logistics  planner  in  creating  logistics 
estimates  for  supply  items  in  the  other  categories  of  supply. 


15 


The  templates  have  two  major  limitations.  First,  each  of  the  templates  is  written 
to  run  independently.  This  means  that  a  logistics  planner  who  desires  to  run  both  of 
these  programs  must  run  them  separately.  The  estimates  generated  by  the  two 
programs  must  be  abstracted  onto  a  single  document  along  with  estimates  for  other 
supply  items  when  creating  an  overall  estimate  for  the  operation  being  conducted. 
Second,  the  template  used  to  create  these  logistics  estimates  assumes  a  static  task  force 
composition.  The  templates  use  the  authorized  numbers  of  personnel  and  equipment 
for  the  unit  rather  than  the  actual  numbers  taking  part  in  the  operation.  The 
authorization  document  used  for  this  purpose  is  the  Modified  Table  of  Organization 
and  Equipment  (MTOE)  for  the  unit.  The  templates  provide  a  valuable  service  to  the 
logistics  planner  by  automatically  completing  required  paper  work  for  requisitioning 
supplies.  The  inflexibility  of  the  templates  in  accepting  changes  to  the  task  force 
composition,  however,  causes  them  to  fail  to  make  full  use  of  the  power  of  the 
spreadsheet  program,  and  limits  the  utility  of  the  templates  as  an  automated  planning 
tool. 

There  has  been  little  published  on  the  use  of  analogies  in  creating  logistics 
estimates.  Much  of  the  literature  in  operations  research  focuses  on  the  use  of 
numerical  analysis  in  creating  and  revising  estimates  [Ref.  5].  Strictly  numeric 
techniques,  however,  sometimes  fail  to  model  and  predict  physical  phenomenon. 
Optimization  techniques  involving  numerical  analysis  do  not  work  when  the  result  of 
the  analysis  is  a  guess  or  estimate  of  a  future  outcome  [Ref.  6].  Such  techniques  are 
best  suited  to  problems  where  the  possible  outcomes  are  known  in  advance.  Logistics 
estimation  at  the  tactical  level  is  not  an  exact  science  and  is  resistant  to  attempts  at 
applying  such  techniques.  Non-numeric  reasoning,  called  heuristic  reasoning,  has 
proven  valuable  in  prediction  and  forecasting  when  numerical  analysis  has  proven 
difficult  or  unacceptably  costly.  While  the  use  of  heuristics  does  not  guarantee  optimal 
solution,  it  can  produce  acceptable  results. 

Reasoning  about  the  similarities  between  situations  is  an  interesting  '•ubject  in 
artificial  intelligence  research  that  has  promise  for  assisting  the  prediction  efforts  of 
logisticians  [Ref.  7],  Psychometric  literature  includes  research  describing  how  humans 
search  for  similarities  between  previous  and  new  situations  in  an  attempt  to  exploit 
knowledge  about  previous  situations  in  order  to  improve  current  performance  [Ref.  S[. 
These  parallel  academic  research  efforts  support  the  research  of  this  thesis  in 
investigating  the  possible  use  of  historical  analogies  to  construct  logistics  estimates. 
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Some  situations  can  be  described  by  attributes  or  properties.  It  may  be  helpful 
to  compare  the  values  for  certain  attributes  or  properties  of  one  situation  with  the 
values  for  the  same  attributes  or  properties  of  other  situations  in  an  attempt  to 
establish  the  similarities  between  them.  If  similarities  between  situations  exist,  then  it 
may  be  possible  to  infer  some  information  about  one  such  situation  from  information 
already  available  about  the  other.  With  regard  to  logistics  estimates,  the  influence  of 
certain  operation  attributes  on  the  actual  consumption  of  individual  supply  items  might 
be  able  to  be  inferred  from  available  data  on  the  actual  consumption  of  supplies  of 
previously  conducted  operations.  While  the  use  of  this  technique  to  improve  the 
accuracy  of  tactical  logistics  estimates  has  not  been  explicitly  detailed  in  technical 
literature,  it  conceivably  offers  great  potential  as  an  estimation  tool  for  the  logistics 
planner. 
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III.  PROGRAM  DESIGN  AND  IMPLEMENTATION 

A.  MAJOR  PROGRAM  FUNCTIONS 

The  program  was  designed  to  assist  the  tactical  logistics  planner  in  performing 
many  of  the  tasks  associated  with  creating  logistics  estimates.  To  this  end,  there  are 
five  major  functions  performed  by  the  program. 

The  first  and  most  important  function  is  to  create  a  logistics  estimate  for  an 
operation  using  information  supplied  by  the  user  in  an  interactive  session  and  with 
data  retrieved  from  historical  files  maintained  in  secondary  storage.  This  function  is 
the  real  heart  of  the  program.  It  references  equations,  performs  calculations,  and 
contains  code  that  reasons  about  the  similarity  of  operations.  The  output  generated  by 
this  part  of  the  program  is  of  particular  interest  and  is  discussed  later  in  the  chapter. 

The  second  function  performed  by  the  program  is  to  update  a  record  of  a 
logistics  estimate  with  data  on  the  actual  consumption  resulting  from  the  conduct  of  an 
.  operation.  This  function  would  be  employed  after  an  operation  had  already  been 

conducted,  and  supplements  or  replaces  much  of  the  effort  spent  in  preparing  logistics 
after-action  reports.  The  value  of  this  function  lies  not  only  in  its  automation  of  the 
report  generation  task,  but  also  in  the  storage  of  this  information  in  the  same  data 
structure  as  the  original  logistics  estimate  for  easy  retrieval  and  logical  representation. 

The  third  function  is  to  delete  from  the  historical  files  the  record  of  a  previously 
created  logistics  estimate.  Deletions  of  this  sort  are  desircable  when  an  operation  for 
which  a  logistics  estimate  has  been  created  is  not  conducted.  If  the  actual 
;  consumption  data  in  the  record  is  significantly  influenced  by  a  factor  which  is 

considered  an  abnormal  occurrence,  the  logistics  planner  may  want  to  preclude  its  use 
in  future  program  references  by  deleting  it  from  the  historical  files.  Another 
implementation  might  use  a  boolean  flag  for  this  purpose. 

A  fourth  function  is  to  print  a  directory  with  data  on  aii  the  records  of  logistics 
estimates  in  the  historical  files.  This  is  an  important  program  function  because  it 
pros  ides  the  user  of  the  program  with  visibility  over  records  currently  in  the  historical 
files  without  using  some  of  the  more  complex  functions  of  the  program.  One  of  the 
data  elements  displayed  in  the  directory  output  is  whether  or  not  each  of  the  logistics 
;  estimates  has  been  updated.  This  pros  ides  an  easy  method  for  the  logistics  planner  to 

see  whether  an  update  needs  to  be  made  to  a  particular  logistics  estimate. 
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The  last  function  of  the  program  provides  the  capability  of  searching  through  the 
historical  files  which  the  program  has  previously  created  and  prints  a  one  page 
summary  of  all  of  the  critical  information  associated  with  each  of  the  operations.  Such 
information  includes  not  only  the  original  logistics  estimate,  but  also  actual 
consumption  data  for  each  of  the  items  cf  supplies  for  which  an  estimate  was  prepared. 
This  data  would  be  input  using  the  record  update  function  of  the  program  previously 
described. 

Figure  3.1  shows  the  top  level  design  of  the  program.  Each  of  the  program 
functions  described  in  this  section  is  implemented  as  a  module  in  the  program. 


program 

planner 


Figure  3.1  Program  Top  Lev  el  Design. 


B.  DATA  STRUCTURES 

The  key  design  decision  with  regard  to  data  structures  was  the  manner  in  which 
all  of  the  information  regarding  the  creation  of  a  logistics  estimate  would  be  stored.  A 
record  called  an  oprecord  (operation  record)  was  chosen.  It  contains  fields  which 
describe  all  of  the  scenario  data  used  by  the  program  to  create  a  general  estimate  for 
each  of  the  supply  items  for  which  the  program  creates  an  estimate.  Additional 
scenario  data  is  collected  and  stored  for  the  purpose  of  reasoning  about  the  similarities 
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between  operations.  The  oprecord  also  contains  a  multi-dimensional  array  named 
consumption  which  contains  information  about  each  of  the  supply  items  for  which  the 
program  creates  an  estimate.  This  information  includes  : 

1.  supply  item  name 

2.  general  estimate  for  the  supply  item  generated  by  performing  the  calculation  of 
equations  referenced  from  Fm  101-10-1  and  using  planning  factors  found  in 
reference  4 

3.  adjustments  to  this  estimate  determined  by  the  reasoning  and  adjustment 
techniques  of  the  program 

4.  revised  estimate  obtained  by  adding  the  general  estimate  and  the  adjustment 

5.  actual  consumption  of  the  supply  item  during  the  conduct  of  the  operation,  if 
such  data  has  been  placed  into  the  record. 

Information  about  the  composition  of  the  task  force  conducting  the  operation  is 
stored  in  an  array  called  task  force.  The  information  contained  in  this  data  structure  is 
not  permanent  and  is  lost  after  the  logistics  estimate  function  of  the  program  has 
completed  execution. 

The  choices  for  data  structures  in  Pascal  are  satisfactory  [Ref.  9j.  The 
availability  of  user-defined  file  types  made  file  input  and  output  straightforward.  After 
programming  portions  of  the  program  in  LISP  as  part  of  other  course  work.  LISP 
appears  to  be  at  least  as  desirable  a  programming  language  for  an  application  of  this 
sort  [Ref.  10].  In  particular.  LISP  structures  and  flavors  require  fewer  variable 
declarations,  and  results  in  program  code  that  is  easier  to  read.  They  also  oiler  no 
temptation  to  rely  or.  function  side  effects  to  assign  values  to  fields  in  data  structures. 
A  partial  implementation  of  the  program  in  Common  Lisp  is  included  as  Appendix  E. 

C.  CREATING  A  LOGISTICS  ESTIMATE 

I  Input 

The  first  input  expected  from  the  user  after  selecting  the  log-estimate  module 
of  the  program  is  the  composition  of  the  task  force  conducting  the  operation.  An 
exampie  interactive  session  in  which  the  user  supplies  the  number  of  each  kind  of 
weapon  and  major  end  item  is  found  in  Appendix  A.  The  selection  of  weapons  and 
major  end  items  included  in  the  program  was  a  design  decision.  A  major  criterion  for 
inclusion  was  the  availability  of  planning  factor  data  in  FM  101-10-1  and  other  widely 
used  planning  references  [Ref.  4j. 

The  program  then  proceeds  to  query  the  user  about  certain  attributes 
describing  the  operation  for  which  the  program  will  create  a  logistics  estimate. 
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Examples  of  the  queries  posed  to  the  user  are  contained  in  the  demonstrations  in 
Appendix  A  and  Appendix  B.  User  responses  to  these  queries  are  stored  in  the 
operation  record  (oprecord)  identified  earlier. 

An  important  design  decision  in  handling  program  input  from  the  user  was 
reliance  on  menus.  The  program  is  intended  to  serve  as  a  prototype  of  an  actual 
logistics  planning  tool.  The  use  of  menus  reduces  the  potential  for  user  input  errors 
when  the  program  is  used  in  the  field  where  unfamiliar  users  may  enter  erroneous 
information.  In  addition,  menus  support  the  use  of  enumerated  types.  Enumerated 
types  were  deemed  important  in  promoting  clarity  when  reading  the  program  and 
studying  its  design.  The  cost  of  using  menus  is  more  extensive  input  procedure  coding. 

A  special  point  is  made  to  ensure  that  the  program  does  not  impose  any 
additional  data  gathering  requirements  upon  the  logistics  planner  beyond  those 
currently  in  effect.  All  of  the  data  requested  by  the  program  of  the  user  is  contained  in 
the  operational  planning  document  called  the  OPORDER  (operation  order)  or  its  draft 
referred  to  in  Chapter  I.  The  logistics  planner  can  answer  all  program  queries  using 
only  those  sources  of  information  to  which  he/ she  has  routine  accesss.  In  event  that 
the  operation  order  itself  is  automated,  user  input  of  some  of  this  data  might  not  be 
required. 

2.  Database  Operations  and  General-estimate  Calculation 

The  equations  and  planning  factors  used  in  calculating  the  general  logistics 
estimates  are  implemented  as  procedures  with  extensive  parameter  lists.  Information 
about  the  composition  of  the  task  force  and  certain  aspects  of  the  operation  scenario 
are  used  to  select  the  correct  equations  and  variable  values.  The  result  of  these 
calculations  is  the  general  estimate,  and  is  equal  to  the  result  obtained  by  referencing 
FM  101-10-1  and  performing  the  mathematics  manually.  This  portion  of  the  program 
is  a  single-purpose  database  algorithm.  The  computer  performs  this  operation  much 
faster,  and  with  greater  reliability  than  can  a  human.  The  estimates  created  by  these 
calculations  are  then  stored  in  the  operation  record  (oprecord)  of  the  logistics  estimate. 

A  restriction  of  the  program  implementation  is  the  use  of  array  indiices  to 
reference  task  force  data.  Knowledge  of  the  data  structure  containing  information  on 
the  composition  of  the  task  force  is  used  in  performing  the  database  operations.  The 
referencing  of  this  data  could  be  accomplished  differently.  A  Line  Item  Number  (LIN) 
is  uniquely  associated  with  every  weapon  and  major  end  item  in  the  Army  inventory. 
Program  implementation  could  be  changed  to  use  this  attribute  to  reference  task  force 


composition  rather  than  relying  on  data  structure  knowledge.  This  wouid  be  especially 
useful  in  an  environment  where  the  type  of  weapons  and  major  end  items  were  not 
constant.  It  also  supports  the  principle  of  information  hiding  [Ref.  11). 

3.  Reasoning 

The  apparently  intelligent  behavior  of  the  program  is  the  result  of  the 
reasoning  it  does  about  the  similarity  between  the  current  operation  and  previous 
operations  existing  in  the  historical  files  maintained  by  the  program.  The  program 
accomplishes  this  kind  of  reasoning  by  comparing  the  values  for  attributes  in  the 
description  of  each  previous  operation  with  the  values  for  the  same  attributes  in  the 
current  operation.  The  program  uses  a  formula  to  determine  the  strength  of  the 
similarity  between  the  two  operations.  All  previous  operations  are  evaluated  in  this 
manner.  Data  contained  in  the  operation  records  of  the  three  most  similar  previous 
operations  will  be  used  in  an  adjustment  algorithm  to  refine  the  general  estimates 
calculated  earlier,  yielding  more  accurate  estimates. 

The  first  phase  of  the  reasoning  process  identifies  all  of  the  previous 
operations  that  are  considered  analogous  to  the  current  operation.  For  a  previous 
operation  to  be  considered  analogous,  it  must  meet  the  following  criteria. 

1.  The  previous  operation  has  actual  consumption  data. 

2.  The  previous  operation  and  the  current  operation  must  have  the  same  mission. 

3.  The  previous  operation  and  the  current  operation  must  take  place  in  the  same 
area. 

4.  The  previous  operation  and  the  current  operation  must  take  place  in  the  same 
climate. 

5.  The  previous  operation  and  the  current  operation  must  take  place  under  the 
same  chemical  defense  posture. 

6.  The  previous  operation  and  the  current  operation  must  have  the  same  combat 
intensity. 

7.  The  previous  operation  and  the  current  operation  were  both  first  day 
engagements  or  succeeding  day  engagements. 

All  previous  operations  are  analyzed  and  a  list  of  analogous  operations  created.  The 
program  generates  output  showing  all  previous  operations  meeting  this  criteria  and 
considered  analogous  to  the  current  operation.  Examples  of  this  output  are  found  in 
Appendix  A  and  Appendix  B  under  the  heading.  Analogy  Reasoning. 

The  list  of  analogous  operations  is  treated  as  a  candidate  list  from  which  up  to 
three  operations  will  be  selected  as  input  into  an  adjustment  algorithm.  The  action  of 
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the  adjustment  algorithm  is  to  reflect  knowledge  about  the  past  consumption  of 
supplies  in  adjusting  the  general  estimates  obtained  through  the  database 
computations. 

The  second  phase  of  reasoning  determines  which  of  the  candidate  operations 
will  be  selected  for  the  purpose  of  adjusting  estimates.  The  program  performs  this 
reasoning  by  evaluating  certain  attributes  of  the  scenario  descriptions  of  all  of  the 
candidate  operations,  and  allocates  analogy  strength  points  to  operations  which  have 
the  same  values  for  those  attribute  as  does  the  current  operation.  The  three  candidate 
operations  with  the  greatest  analogy  strength  points  are  selected  for  use  in  the 
adjustment  algorithm. 

The  sophistication  of  the  second  phase  of  reasoning  docs  not  end  here.  The 
supply  items  for  which  the  program  creates  logistics  estimates  are  grouped  into  live 
categories.  The  consumption  rates  for  the  supply  items  in  each  of  the  categories  are 
assumed  to  be  directly  influenced  by  the  same  set  of  operation  attributes  as  are  the 
other  supply  items  in  their  category.  The  program  is  able  to  reason  about  which 
candidate  operations  are  the  strongest  analogies  to  the  current  operation  in  each  of 
these  categories  independently.  This  is  important  since  the  consumption  rates  of 
supply  items  within  different  categories  of  supply  are  influenced  to  varying  degrees  by 
similar  factors  and  by  different  conditions  than  are  supply  items  in  other  categories. 
The  program  adjusts  the  estimates  of  supply  items  in  each  of  the  categories  by  using 
the  strongest  analogies  to  the  current  operation  for  those  attributes  influencing 
consumption  of  supply  items  in  that  category.  In  this  way,  the  program  makes  the 
most  effective  use  of  the  data  available  on  previous  operations.  The  five  categories  of 
supply  considered  by  the  program  are  : 

1 .  water 

2.  subsistence 
a.  fuel 

4.  ammunition 
.5.  general  supplies. 

The  attributes  of  an  operation  which  arc  used  in  determining  the  strongest 
analogies  in  each  of  these  categories  arc  identified  in  the  program  output,  factors 
influencing  the  consumption  rates  of  supplies  are  not  equally  significant.  The  program 
applies  weighting  factors  to  each  attribute  and  sums  the  value  of  all  attributes  in 
determining  the  total  strength  points  for  a  particular  operation.  Appendix  A  and 


Appendix  B  both  contain  program  output  which  illustrates  this  reasoning.  Those 
entries  in  which  a  "yes"  is  marked  had  a  match  between  the  attribute  value  in  the 
previous  operation  and  the  attribute  value  in  the  current  operation.  The  weighting 
given  to  each  of  the  attributes  is  found  in  parenthesis  under  the  attribute  name. 

It  is  important  to  note  the  adaptability  of  this  form  of  reasoning.  Any  change 
in  attributes  used  in  performing  the  kind  of  reasoning  contained  in  the  program  can  be 
easily  made.  Changes  to  the  weighting  given  to  any  of  the  attributes  can  be  changed 
by  modifying  a  single  value  in  the  code.  The  analyst  or  combat  modeler  can  change 
the  action  of  the  program  by  modifying  the  identity  or  the  weightings  given  to 
attributes  of  the  operation  to  reflect  more  accurately  the  influence  of  operation 
attributes  affecting  the  consumption  of  supplies. 

4.  Adjustment  Algorithm 

After  the  strongest  analogies  for  each  of  the  categories  of  supply  items  have 
been  determined,  an  adjustment  to  the  general  estimate  for  each  of  the  supply  items 
computed.  The  adjustment  algorithm  works  this  way. 

An  error  percentage  is  calculated  for  each  of  the  analogies  with  respect  to  the 
particular  supply  item  being  considered.  This  is  done  by  taking  the  difference  between 
the  actual  consumption  and  the  general  estimate  for  the  supply  item  and  dividing  it  by 
the  general  estimate.  Once  this  has  been  done  for  each  of  the  analogous  operations, 
these  error  percentages  are  weighted  by  the  analogy  strengths  of  the  operations  from 
which  they  were  calculated,  and  averaged  together.  The  resultant  error  percentage  is 
then  multiplied  by  the  general  estimate  for  the  same  supply  item  in  the  current  logistics 
estimate.  The  result  is  stored  as  the  adjustment  to  this  general  estimate.  In  computing 
the  final  estimate  for  the  supply  item,  the  adjustment  is  added  to  the  general  estimate. 
Adjustments  can  be  be  positive,  negative,  or  zero. 

There  are  several  ways  in  which  the  error  percentages  of  the  three  strongest 
analogies  can  be  averaged.  One  way  is  to  weight  the  error  percentages  equally. 
Another  way  is  to  place  greater  weight  on  the  error  percentages  obtained  from  mere 
recently  conducted  operations.  The  current  weighting  strategy  places  greater  weight  on 
the  error  percentages  of  the  strongest  analogies.  Testing  of  the  results  of  the  program 
has  not  been  done,  but  this  weighting  strategy  is  expected  to  yield  more  accurate 
adjustments  than  other  strategies. 
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5.  Output 

The  program  output  generated  by  this  function  of  the  program  has  already 
been  partially  described.  The  logistics  estimate  itself  is  a  one  page  document  found  in 
both  Appendix  A  and  Appendix  B.  The  top  half  of  the  document  contains  a  summary 
of  the  attributes  of  the  operation.  Next,  a  brief  summary  of  the  previous  analogous 
operations  used  in  the  adjustment  algorithm  is  provided.  At  present,  this  information 
pertains  only  to  the  ammunition  adjustments.  Ammunition  adjustments  arc  considered 
to  be  of  particular  interest  since  the  majority  of  the  estimates  which  the  program 
creates  are  for  ammunition  supply  items.  At  the  bottom  of  the  document  is  the 
logistics  estimate  for  the  operation.  The  document  is  otherwise  self-explanatory. 

D.  UPDATING  RECORDS 

This  function  of  the  program  is  critical  to  the  reasoning  performed  in  the  creation 
of  the  logistics  estimate.  After  an  operation  has  been  conducted,  one  of  the  tasks 
required  of  the  tactical  logistics  planner  is  to  collect  data  on  all  of  the  supplies 
consumed.  Such  information  is  passed  up  the  chain  of  command  to  satisfy  reporting 
requirements,  and  retained  by  the  unit  conducting  the  operation  for  future  planning 
purposes.  The  record  update  function  of  the  program  automates  this  task,  and  stores 
the  actual  consumption  data  in  the  same  data  structure  as  the  original  logistics 
estimate  for  that  operation  for  future  reference.  An  example  of  an  interactive  session 
which  queries  the  user  for  the  actual  consumption  data  and  acknowledges  the  update 
of  the  historical  record  of  that  operation  is  found  in  Appendix  C. 

E.  DELETING  RECORDS 

Not  all  of  the  operations  for  which  logistics  estimates  are  created  will  actually  be 
conducted.  In  other  cases,  the  actual  consumption  figures  for  an  operation  may  be 
suspect  or  otherwise  undesireable  for  use  in  adjusting  future  logistics  estimates.  The 
usefulness  of  retaining  such  records  in  secondary  storage  is  questionable.  The  program 
allows  the  records  of  such  operations  to  be  deleted.  An  example  of  an  interactive  user 
session  using  this  function  of  the  program  is  found  in  Appendix  C. 

F.  PRINTING  A  DIRECTORY 

This  function  is  useful  for  the  reasons  discussed  earlier.  The  information  it 
provides  is  all  that  is  necessary  to  unique!}  identify  each  of  the  operations,  unless  more 
than  one  operation  with  the  same  mission  for  the  same  unit  on  the  same  day  is  created. 


An  additional  identifier  would  then  be  necessary.  Aside  from  listing  all  of  the 
operations  residing  in  secondary  storage,  this  function  identifies  whether  each 
operation  has  been  updated  or  not.  If  a  record  has  been  updated,  then  the  source  of 
the  update  information  is  provided.  The  sources  of  update  information  are  factual  data 
and  estimates.  An  example  of  the  output  generated  by  the  print  directory'  function  of 
the  program  is  found  in  Appendix  C. 

G.  PRINTING  HISTORICAL  RECORDS 

This  function  of  the  program  generates  one  page  summaries  of  all  of  the 
information  available  on  each  of  the  operations  for  which  it  has  created  a  logistics 
estimate.  Such  a  summary-  is  invaluable  to  a  logistics  planner.  It  represents  a 
significant  effort  in  researching  historical  files  and  presenting  the  contents  of  the  files  in 
a  clear  and  understandable  format.  This  function  of  the  program  could  be  modified  to 
produce  the  historical  record  of  a  single  specified  operation,  rather  than  the  records  of 
all  operations  in  the  historical  files.  An  example  of  the  historical  record  of  an 
operation  is  found  in  Appendix  C. 
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IV.  CONCLUSIONS 


A.  PROGRAM  STRENGTHS 

The  program  takes  a  different  approach  to  the  creation  of  logistics  estimates 
from  the  one  currently  used  by  Army  logistics  planners.  It  automates  the  references 
and  calculations  performed  by  logistics  planners  in  constructing  estimates  using  Army 
directed  algorithms.  The  program  performs  these  tasks  with  significant  benefits  to  the 
logistics  planner.  The  program  is  fast,  reliable,  and  tireless.  It  automates  many  of  the 
other  administrative  tasks  performed  by  the  logistics  planner  in  updating  the  historical 
records  of  operations  and  frees  the  logistics  planner  to  do  other  things. 

In  addition  to  its  automation  benefits,  the  program  conducts  analysis  that  was 
heretofore  conducted  only  by  experienced  or  enterprising  logisticians.  This  analysis 
takes  the  form  of  reasoning  about  the  similarity  between  operations,  and  the  evaluation 
of  existing  historical  records.  This  type  of  reasoning  is  essential  to  improving  the 
accuracy  of  logistics  estimates  generated  by  current  estimation  techniques.  The  ability 
of  the  logistics  planner  to  direct  the  reasoning  of  his  automated  aid  in  revising 
estimates  is  extremely  powerful.  It  allows  the  logistics  planner  to  instantly  respond  to 
changing  conditions  in  operational  planning,  and  assists  the  logistics  planner  in 
creating  consistent,  reasoned  estimates  even  when  he  she  lacks  the  requisite  personal 
experience  to  conduct  such  reasoning.  Logistics  planners  outside  the  Army  cun  also 
benefit  from  such  a  reasoning  facility.  Inventory  managers  and  production  planners 
spend  considerable  time  creating  and  revising  estimates.  The  reasoning  contained  in 
the  program  could  be  adapted  to  assist  them. 

B.  PROGRAM  LIMITATIONS 

The  program  does  not  create  estimates  for  ail  of  the  supply  items  with  which  the 
logistics  planner  would  be  concerned.  Likewise,  it  does  not  accept  information  on  ail 
of  the  different  types  and  modeis  of  weapons  and  major  end  items  which  are  currently 
in  use  in  the  field.  One  reason  for  theve  obvious  limitations  is  that  the  program  was 
designed  as  a  prototype.  The  program  needed  to  demonstrate  function,  not 
completeness.  A  serious  factor  affecting  future  efforts  in  the  development  of 
automated  logistics  planning  aids  of  this  type,  however,  is  storage.  Principally,  the 
concern  is  main  memory  availability.  The  template  used  to  create  the  task  force  in  the 
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program  was  arbitrarily  chosen.  It  was  certainly  a  very  small  subset  of  the  total 
inventor}’  of  weapons  and  major  end  items  in  the  Army  inventor}-. 

A  complete  database  of  all  weapons  and  major  end-items  in  the  United  States 
Army  does  exist,  and  is  called  the  Army  Master  Data  File  (AMDF).  A  program  using 
a  database  of  this  size  would  be  most  appropriate  in  a  war  gaming  or  simulation 
application  where  memory  resources  necessary  to  support  such  a  database  would  not 
be  a  constraint.  If  the  program  is  implemented  as  a  microcomputer-based  system  in 
tactical  units,  then  a  subset  of  the  AMDF  or  the  use  of  a  task  force  template  like  the 
one  used  in  the  prototype  would  be  appropriate. 

An  improvement  of  the  program  might  allow  the  user  to  specify  a  set  of  weapons 
and  major  end  items  from  the  AMDF  as  one  of  the  program  functions.  The  resulting 
task  force  template  would  continue  to  be  used  until  changed  by  the  user  by  selecting  a 
task  force  template  creation  function  in  the  program.  The  overriding  concern  is  that 
the  task  force  database  and  template  be  tailored  to  meet  the  particular  needs  of  the 
logistics  planner  using  the  program  and  be  supported  by  the  memory-  resources 
available. 

Another  limitation  of  the  program  is  the  temporary  existence  of  task  force 
composition  data.  Ideally,  this  information  would  be  stored  permanently  with  other 
data  pertinent  to  the  historical  record  of  an  operation.  It  currently  is  not.  The  loss  of 
this  data  prohibits  future  reference  to  the  composition  of  the  task  force  involved  in  the 
conduct  of  a  particular  logistics  operation.  This  limits  some  of  the  analysis  which  can 
be  performed  about  an  operation.  Information  on  the  composition  of  a  task  force  may 
warrant  inclusion  in  the  historical  record. 

Current  program  design  involves  reading  all  of  the  historical  records  into  main 
memory  from  secondary  storage  at  the  beginning  of  the  program  and  writing  them 
back  into  secondary  storage  at  the  end  of  the  of  the  user  session.  The  historical  files 
take  up  considerable  space  when  the  program  has  been  used  to  create  a  large  number 
of  logistics  estimates.  A  more  sophisticated  data  retrieval  technique  is  necessary  to 
reduce  this  dependency  on  main  memory.  If  the  historical  files  of  several  different 
units  are  stored  together  or  shared  in  some  type  of  distributed  system,  the  data 
retrieval  issue  becomes  even  more  important. 

The  decision  to  use  Pascal  as  the  implementation  language  in  the  prototype  was 
made  for  convenience.  Pascal  may  not  be  the  best  choice.  Experimentation  with 
Common  Lisp  tn  implementing  portions  of  the  program  required  fewer  variables  and 
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potentially  less  storage  space  than  Pascal.  In  addition,  the  use  of  user  defined 
structures  in  Common  Lisp  appeared  to  make  the  program  easier  to  read  and 
understand. 

A  significant  limitation  of  the  program  is  its  rigidity.  In  particular,  the  program 
does  not  allow  the  user  to  change  the  value  of  an  attribute  in  the  description  of  an 
operation  after  a  record  for  that  operation  has  been  created  and  placed  into  the 
historical  records.  War  is  unpredictable  by  nature.  There  may  be  times  when  the  value 
of  certain  attributes  in  the  operation  description  will  not  be  as  planned.  It  is 
unrealistic  to  expect  the  user  of  the  program  to  recreate  an  entire  logistics  estimate 
because  of  a  single  change  to  the  operation  description. 

In  a  combat  simulation  or  modelling  application  of  this  program,  the  ability  to 
quickly  and  easily  change  the  value  of  attributes  in  the  operation  description  and 
recreate  an  estimate  would  be  very  important.  Any  anticipated  sensitivity  analysis 
using  this  program  would  require  this  capability. 

The  estimates  for  Class  II,  Class  IV,  Class  VII,  Class  VIII.  and  Class  IX  supplies 
are  clearly  unacceptable  for  the  purposes  of  the  tactical  logistics  planner.  While  the 
functions  of  the  program  worked  well  in  creating  estimates  which  may  be  superior  to 
those  generated  by  human  planners  by  calculation  methods  alone,  it  is  the  level  of 
abstraction  at  which  the  estimates  were  made  that  is  the  problem.  No  one  orders  such 
supplies  by  the  short  ton.  Each  supply  item  is  uniquely  identified  by  a  stock  number 
and  ordered  individually.  There  must  be  a  more  concerted  effort  by  Army  logisticians 
to  provide  planning  equations  and  factors  for  selected  individual  supply  items  in  these 
categories.  The  present  level  of  abstraction  serves  only  the  needs  of  the  transportation 
manager  concerned  with  bulk  planning  data  and  the  logistician  at  Army  level  and 
above. 

The  reasoning  performed  by  the  program  represents  a  new  approach  to  logistics 
planning  and  has  several  potential  applications  which  will  be  discussed  later.  There  is 
the  potential  however,  for  becoming  overly  impressed  with  the  reasoning  techniques  of 
the  program  and  trying  to  reason  about  too  many  factors  at  once,  or  about  factors 
whose  influence  on  supply  consumption  is  uncertain.  Some  factors  may  certainly 
impact  on  how  a  particular  operation  is  conducted,  but  may  not  influence  the 
consumption  of  supplies  in  any  consistent  and  meaningful  way. 
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C.  PROMISE  FOR  THE  FUTURE 


The  program  of  this  thesis  could  evolve  into  a  valuable  tool  for  the  tactical 
logistics  planner.  Future  work  needs  to  be  done  to  validate  the  approach  of  this 
research.  The  program  offers  many  potential  benefits  to  the  logistics  planner.  It  is  fast 
and  reliable.  Much  of  the  time  consuming  work  now’  being  done  by  humans  can  be 
confidently  shifted  to  a  computer.  References  and  calculations  are  routine, 
monotonous,  and  unexciting  aspects  of  the  logistics  estimation  process.  Such  tasks  are 
often  performed  poorly  or  in  an  untimely  manner,  especially  in  a  high  stress 
environment  such  as  can  be  expected  during  combat  operations.  The  program  assists 
the  logistics  planner  in  the  reasoning  process  as  well.  For  the  inexperienced  planner, 
the  built-in  reasoning  of  the  program  may  provide  estimate  revisions  where  they  might 
not  otherwise  be  possible.  The  experienced  logistics  planner  can  structure  the 
reasoning  of  the  program  to  reflect  more  accurately  the  influence  of  different  operation 
attributes  on  the  consumption  rate  of  supplies.  Even  at  the  tactical  level,  sensitivity 
analysis  can  be  performed  by  altering  the  values  of  various  operation  attributes  and 
creating  a  new  estimate  for  the  revised  situation.  A  final  benefit  of  the  program  is  the 
simplicity  and  speed  with  which  consumption  data  is  recorded.  With  the  aid  of  the 
program,  this  all-too-often-neglected  task  may  be  routinely  performed. 

The  ideas  inherent  to  the  creation  of  an  automated  logistics  planning  program 
can  be  used  to  design  computer  aided  instruction  programs  for  teaching  logistics 
planners  how  to  create  logistics  estimates.  An  explanation  facility  can  be  added  to 
instruct  the  student  as  to  which  refences  are  made  in  preparing  each  of  the  individual 
suppiv  item  estimates  in  accordance  with  FM  101-10-1.  The  same  instruction  program 
could  check  student  estimates  against  its  own  calculations  for  test  operations  and 
provide  a  general  equation  solutions  when  the  student  fails  to  provide  a  correct 
response. 

A  computer-aided  instruction  program  might  also  be  used  to  teach  the  basics  of 
reasoning  in  adjusting  logistics  estimates.  A  sample  session  such  as  the  one  detailed  in 
the  appendices  of  this  thesis  might  provide  physical  evidence  of  the  influence  that 
certain  operation  attributes  may  have  on  the  consumption  of  supplies.  Coupled  with 
classroom  instruction,  such  an  approach  might  provide  some  needed  experience  to 
junior  iogisticians. 

Logistics  has  been  poorly  integrated  into  most  Army  tactical  simulations  and  war 
gaming  exercises.  Operational  planning  in  these  exercises  fails  to  include  realistic 
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consideration  of  logistics  requirements.  The  reason  cited  most  often  in  explaining  this 
deficiency  is  that  logistics  estimates  are  too  time  consuming  to  create  and  slow  the  pace 
of  the  training.  Use  of  an  automatedlogistics-planning  system  like  this  one  might  be 
able  to  alleviate  this  problem  to  some  degree.  The  program  of  this  thesis  clearly 
demonstrates  that  systems  can  be  designed  to  create  logistics  estimates  in  a  timely  and 
responsive  manner,  and  integrated  into  operational  planning.  It  might  be  possible  to 
expand  these  type  of  exercises  in  the  future  to  include  the  participation  of  logistics 
planners  in  a  meaningful  way. 


APPENDIX  A 

LOGISTICS  ESTIMATE  DEMONSTRATION  #1 


TASK  FORCE  INPUT 

You  will  now  begin  building  the  task  force. 


enter 

the 

number 

40 

of 

enter 

the 

number 

C 

of 

enter 

the 

number 

19 

of 

enter 

the 

number 

5 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

12 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

0 

of 

enter 

the 

number 

3 

of 

enter 

the 

number 

3 

of 

enter 

the 

number 

54 

of 

enter 

the 

number 

54 

of 

enter 

the 

number 

26 

of 

enter 

the 

number 

44 

of 

enter 

the 

number 

123 

of 

enter 

the 

number 

49 

of 

enter 

the 

number 

3000 

of 

M2  INF  FIGHTING  VEH 
M3  CAV  FIGHTING  VEH 
M113  PERS  CARRIER 
M901  CBT  VEH  ITV 
M125A1  SIMM  CARR 
M106A1  107MM  CARR 
M102  105MM  HOW 
M109  155MM  SP  HOW 
MHO  8in  SP  HOW 
LAUN-LOAD  MLRS 
M163  VULCAN  AIR  DEF 
M730  CHAP  AIR  DEF 
Ml  TANK  105MM 
M6C  TANK  105MM 
TOW  LAUNCHER 
M222  DRAGON  LNCHR 
M2  50  CAL  MG 
M60  MG 
M16A1  RIFLE 


in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force , 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force. 

in 

your 

task 

force. 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

32 


SCENARIO  INPUT 


The  following  questions  describe  the  operation  for  which 
the  program  will  create  a  logistics  requirements  estimate. 
All  questions  must  be  answered  as  directed. 


Enter  the  date  on  which  the  operation  is  to  commence. 
Use  the  form  dd/mm/yy 

The  date  of  the  operation  is  24/05/87 

Is  this  the  correct  date? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  date  is  correct 

2  -  no,  date  is  incorrect 


Enter  the  name  of  the  unit  for  which  this  estimate  or 
update  is  being  prepared.  For  example-  I/32rd 

The  name  of  the  unit  is  2/77 th 

Is  this  the  correct  unit  name? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  unit  name  is  correct 

2  -  no,  unit  name  is  incorrect 


Enter  the  number  corresponding  to  the  correct  tf  type. 

1  -  armor 

2  -  mechanized 

3  -  infantry 


Enter  the  number  corresponding  to  the  correct  tf  size. 

1  -  battalion 

2  -  brigade 


Enter  the  number  corresponding  to  the  correct  mission. 

1  -  attack 

2  -  defend 


Is  this  the  first  day  of  this  mission  or  is  this  a 
succeeding  day  of  a  continuing  mission. 

Enter  the  correct  number  for  your  response 

1  -  first  day 

2  -  succeeding  day 


r 
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Enter  the  name  of  the  operation  of  which  this  mission 
is  a  part.  For  example-  D-DAY 

The  name  of  the  operation  is  Reforger 


Is  this  correct  ? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  operation  name  is  correct 

2  -  no,  operation  name  is  incorrect 


Enter  the  number  corresponding  to  the  correct  area. 

1  -  conus 

2  -  europe 

3  -  korea 


Enter  the  name  of  the  country  in  which  this  mission 
will  be  conducted.  For  example-  West  Germany. 

Be  sure  to  capitalize  the  first  letter  in  each  word 

The  name  of  the  country  is  West  Germany 


Is  this  correct  ? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  country  name  is  correct 

2  -  no,  country  name  is  incorrect 


Enter  the  number  corresponding  to  the  correct  climate. 

1  -  hot 

2  -  temperate 

3  -  cold 


Enter  the  number  corresponding  to  the  correct  intensity 

1  -  high 

2  -  mia 

3  -  low 


Do  you  expect  the  task  force  to  be  in  MOPP  level  three 
or  MOPP  level  four  during  this  mission. 

Enter  the  correct  number  for  your  response 

1  -  yes 

2  -  no 


Enter  the  number  corresponding  to  the  correct  terrain 

1  -  open 

2  -  woods 

3  -  built  up 

4  -  mountainous 


Enter  the  number  corresponding  to  the  visibility 

1  -  good 

2  -  fair 

3  -  poor 
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Do  you  plan  on  significant  Air  Force  ground  support?  I 

Enter  the  correct  number  for  your  response  ! 

1  -  yes  > 

2  -  no  ' 


i 

Enter  the  total  number  of  personnel  in  the  task  force.  j 


Enter  the  number  corresponding  to  the  ration  policy 
during  the  duration  of  this  operation. 

1  -  b_c_b 

2  -  c_c  b 
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ANALOGY  REASONING 


All  of  the  available  data  on  past  operations  has  been 
evaluated  to  identify  analogies  to  the  current  operation. 

A  previous  operation  is  considered  analogous  to  the 
current  operation  if  the  following  conditions  are  satisfied: 

1.  The  historical  record  of  the  previous  operation  has 
been  updated  with  actual  consumption  data. 

2.  Both  operations  have  the  same  mission. 

3.  Both  operations  took  place  in  the  same  area  of  the  world. 

4.  Both  operations  took  place  in  the  same  climate. 

5.  Both  operations  took  place  under  the  same  chemical 

defense  mission  oriented  protective  posture. 

6.  Both  operations  involved  the  same  combat  intensity. 

7.  Both  operations  were  first  day  engagements  or 

succeeding  day  engagements  of  the  same  mission  type. 


The  following  operations  are  analogous  under  this  definition. 


DATE 

UNIT 

MISSION 

AREA 

CLIMATE 

MOPP 

INTENSITY 

FIRST/SUCCEEDING  OAY 

01/04/86 

2/77th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

04/04/86 

2/77th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

06/04/86 

2/77th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

10/05/86 

3/24 th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

15/05/86 

i/eist 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

03/04/87 

2/77th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

07/04/87 

2/77th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

22/04/87 

2/77 th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

05/05/87 

3/24 th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

DAY 

16/05/87 

2/77th 

ATTACK 

EUROPE 

TEMPERATE 

YES 

HIGH 

FIRST 

CAY 
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WATER  SUPPLY  REASONING 

The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  water  supply  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
highest  number  of  quality  points  being  chosen  for  this 
purpose. 


DATE 

UNIT 

COUNTRY 

NAME 

UPDATE 

SOURCE 

(2) 

(1) 

16/05/67 

2/77-th 

YES 

YES 

05/C5/87 

3/24 th 

NO 

NO 

22/04/87 

2/77th 

NO 

YES 

07/04/87 

2/77th 

YES 

NO 

03/04/87 

2/77th 

YES 

NO 

15/05/86 

l/81st 

NO 

YES 

10/C5/86 

3/24th 

YES 

NO 

06/04/86 

2/77th 

NO 

NO 

04/04/86 

2/77th 

NO 

YES 

01/04/86 

2/77 th 

YES 

NO 

SUBSISTENCE  SUPPLY  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  subsistence  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
highest  number  of  quality  points  being  chosen  for  this 
purpose. 


DATE 

UNIT 

UNIT 

NAME 

UPDATE 

SOURCE 

(  1 ) 

(1) 

16/05/87 

2/77th 

YES 

YES 

05/05/87 

3/24 th 

NO 

NO 

22/04/87 

2/77th 

YES 

YES 

07/04/87 

2/77th 

YES 

NO 

03/04/87 

2/77th 

YES 

NO 

15/05/86 

l/81*t 

NO 

YES 

10/05/86 

3/24 th 

NO 

NO 

06/04/86 

2/77th 

YES 

NO 

04/04/86 

2/77th 

YES 

YES 

01/04/86 

2/77th 

YES 

NO 

GENERAL  SUPPLY  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  general  suoply  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (2)  =  2  points  for  AF_GROUND_SUPPORT 

Ud  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
highest  number  of  quality  points  being  chosen  for  this 
purpose. 


DATE 

UNIT 

AF 

SRND_SPT 

TERRAIN 

VISIBILITY 

UNIT 

NAME 

COUNTRY 

NAME 

OPERATION 

NAME 

UPDATE 

SOURCE 

(  2  1 

(2) 

(  1 ) 

( 1  ) 

( 1 ) 

( 1 ) 

(2) 

16/05/87 

2/77th 

YES 

NO 

NO 

YES 

YES 

NO 

YES 

05/05/87 

3/24 th 

NO 

NO 

YES 

NO 

NO 

NO 

NO 

22/04/87 

2/77th 

YES 

YES 

YES 

YES 

NO 

YES 

YES 

07/04/87 

2/77-th 

YES 

NO 

NO 

YES 

YES 

YES 

NO 

03/04/87 

2/77th 

NO 

NO 

NO 

YES 

YES 

YES 

NO 

15/05/86 

l/81st 

YES 

YES 

YES 

NO 

NO 

NO 

YES 

10/05/86 

3/24-th 

YES 

NO 

YES 

NO 

YES 

NO 

NO 

06/04/86 

2/77 th 

NO 

NO 

NO 

YES 

NO 

YES 

NO 

04/04/86 

2/77th 

YES 

YES 

YES 

YES 

NO 

YES 

YES 

01/04/86 

2/77th 

YES 

NO 

NO 

YES 

YES 

YES 

NO 

FUEL  SUPPLY  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  fuel  supply  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (2)  =  2  points  for  AF_GROUND_SUPPORT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
hiahest  number  of  quality  points  being  chosen  for  this 
purpose. 


DATE 

UNIT 

AF 

TERRAIN 

UNIT 

COUNTRY 

OPERATION 

UPDATE 

GRND.SPT 

NAME 

NAME 

NAME 

SOURCE 

1 2 ) 

(3) 

(1) 

(1) 

11) 

(2) 

16/05/87 

2/77th 

YES 

NO 

YES 

YES 

NO 

YES 

05/05/87 

3/24th 

NO 

NO 

NO 

NO 

NO 

NO 

22/04/87 

2/77th 

YES 

YES 

YES 

NO 

YES 

YES 

07/04/87 

2/77th 

YES 

NO 

YES 

YES 

YES 

NO 

03/C4/87 

2/77th 

NO 

NO 

YES 

YES 

YES 

NO 

15/05/86 

l/81st 

YES 

YES 

NO 

NO 

NO 

YES 

10/05/86 

3/24th 

YES 

NO 

NO 

YES 

NO 

NO 

06/04/86 

2/77th 

NO 

NO 

YES 

NO 

YES 

NO 

04/04/86 

2/77th 

YES 

YES 

YES 

NO 

YES 

YES 

01/04/86 

2/77 th 

YES 

NO 

YES 

YES 

YES 

NO 

AMMUNITION  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  ammo  supply  consumption.  Each  of  the 
points*  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 

The  three  previous  operations  with  the  highest  number  of 
quality  points  are  used  in  the  adjustment  algorithm. 


DATE 

UNIT 

AF 

GRND_SPT 

TERRAIN 

VISIBILITY 

UNIT 

NAME 

COUNTRY 

NAME 

OPERATION 

NAME 

UPDATE 

SOURCE 

13) 

1  2  1 

11) 

11) 

1 1  ) 

1  1  ) 

1  1  1 

16/05/87 

2/77th 

YES 

NO 

NO 

YES 

YES 

NO 

YES 

05/05/87 

3/24 th 

NO 

NO 

YES 

NO 

NO 

NO 

NO 

22/04/87 

2/77th 

YES 

YES 

YES 

YES 

NO 

YES 

YES 

07/04/87 

2/77th 

YES 

NO 

NO 

YES 

YES 

YES 

NO 

03/04/87 

2/77th 

NO 

NO 

NO 

YES 

YES 

YES 

NO 

15/05/86 

l/81*t 

YES 

YES 

YES 

NO 

NO 

NO 

YES 

10/05/86 

3/24th 

YES 

NO 

YES 

NO 

YES 

NO 

NO 

06/04/86 

2/77t h 

NO 

NO 

NO 

YES 

NO 

YES 

NO 

04/04/86 

2/77th 

YES 

YES 

YES 

YES 

NO 

YES 

YES 

01/04/86 

2/77 th 

YES 

NO 

NO 

YES 

YES 

YES 

NO 
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TASK  FORCE  COMPOSITION 


I 


The  task  force  has  been  built.  Task  force  composition  is 


M2  INF  FIGHTING  VEH 
M3  CAV  FIGHTING  VEH 
MU 3  PERS  CARRIER 
M901  CBT  VEH  ITV 
M125A1  81MM  CARR 
M106A1  107MM  CARR 
Ml 02  105MM  HOW 
Ml  09  155MM  SP  HOW 
MHO  8 in  SP  HOW 
LAUN-LOAD  MLRS 
Ml 63  VULCAN  AIR  DEF 
M730  CHAP  AIR  DEF 
Ml  TANK  105MM 
M60  TANK  105MM 
TOW  LAUNCHER 
M2 2 2  DRAGON  LNCHR 
M2  50  CAL  MG 
M60  MG 
M16A1  RIFLE 


40 

5 

19 

5 

9 

12 

9 

9 

9 

0 

3 

3 

54 

54 

26 

44 

123 

49 

3000 
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AUTOMATED  LOGISTICS  PLAN 


DATE 

UNIT 

TASK  FORCE  TYPE 
TASK  FORCE  SIZE 
MISSION 
DURATION 

COMBAT  INTENSITY 

OPERATION  NAME 

AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF  GROUND  SUPPORT 

MOPP  LEVEL  3/4 

PERSONNEL  STRENGTH 

RATION  POLICY 


24/05/87 

2/77  th 

ARMOR 

BRIGADE 

ATTACK 

FIRST  DAY 

HIGH 

Ra forger 
EUROPE 

West  Germany 

TEMPERATE 

OPEN 

FAIR 

YES 

YES 

3500 

c  c  b 


HISTORICAL  DATA  AVAILABLE  YES 

DATE  22/04/87  04/04/86  16/05/87 

UNIT  2/77 th  2/ 77th  2/77th 


SUPPLY  ITEM 


LOGISTICS  ESTIMATE 
GENERAL  EST .  ADJUSTMENTS 


FINAL  EST. 


water 

16170 

2556 

18726 

gallons 

B  rations 

3500 

-527 

2973 

meals 

MRE  rations 

7000 

2564 

9564 

meals 

class  II  supplies 

6 

1 

7 

STONS 

diesel  fuel 

69530 

8388 

78418 

gallons 

class  IV  supplies 

7 

1 

8 

STONS 

tank  ammo  105mm 

5616 

-616 

5000 

rounds 

TOW  ammo 

182 

66 

248 

rounds 

DRAGON  ammo 

88 

-18 

70 

rounds 

Howitzer  ammo  105mm 

3384 

1137 

4521 

rounds 

Howitzer  ammo  155mm 

3366 

-355 

3011 

rounds 

Howitzer  ammo  8in 

2592 

520 

3112 

rounds 

Vulcan  ammo  20nm 

11952 

4117 

16069 

rounds 

Mortar  ammo  81mm 

873 

-163 

710 

rounds 

Mortar  amno  107mm 

1308 

300 

1608 

rounds 

MG  ammo  .50  caliber 

21525 

-5600 

15925 

rounds 

MG  ammo  7.62mm 

21217 

-6046 

15171 

rounds 

rifle  ammo  5,56mm 

297000 

3470 

300470 

rounds 

class  VII  supplies 

26 

4 

30 

STONS 

class  VIII  supplies 

2 

-1 

1 

STONS 

class  IX  supplies 

4 

4 

8 

STONS 

B 
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APPENDIX  B 

LOGISTICS  ESTIMATE  DEMONSTRATION  #2 

TASK  FORCE  INPUT 

You  will  now  begin  building  the  task  force. 


enter 

the 

number 

40 

of 

enter 

the 

number 

5 

of 

enter 

the 

number 

19 

of 

enter 

the 

number 

of 

enter 

the 

5 

number 

9 

of 

enter 

the 

number 

12 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

9 

of 

enter 

the 

number 

0 

of 

enter 

the 

number 

5 

of 

enter 

the 

number 

3 

of 

enter 

the 

number 

54 

of 

enter 

the 

number 

54 

of 

enter 

the 

number 

28 

of 

enter 

the 

number 

44 

of 

enter 

the 

number 

123 

of 

enter 

the 

number 

49 

of 

enter 

the 

number 

3000 

of 

M2  INF  FIGHTING  VEH 
M3  CAV  FIGHTING  VEH 
M113  PERS  CARRIER 
M901  CBT  VEH  ITV 
M125A1  81MM  CARR 
M106A1  107MM  CARR 
M102  105MM  HOW 
M109  155MM  SP  HOW 
MHO  8 in  SP  HOW 
LAUN-LOAD  MLRS 
M163  VULCAN  AIR  DEF 
M730  CHAP  AIR  DEF 
Ml  TANK  105MM 
M60  TANK  105MM 
TOW  LAUNCHER 
M222  DRAGON  LNCHR 
M2  50  CAL  MG 
M60  MG 
M16A1  RIFLE 


in 

your 

task 

force. 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force. 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force. 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 

in 

your 

task 

force . 
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SCENARIO  INPUT 


The  following  questions  describe  the  operation  for  which 
the  program  will  create  a  logistics  requirements  estimate. 
All  questions  must  be  answered  as  directed. 


Enter  the  date  on  which  the  operation  is  to  commence. 
Use  the  form  dd/mm/yy 

The  date  of  the  operation  is  03/03/87 

Is  this  the  correct  date? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  date  is  correct 

2  -  no,  date  is  incorrect 


Enter  the  name  of  the  unit  for  which  this  estimate  or 
update  is  being  prepared.  For  example-  l/33rd 

The  name  of  the  unit  is  1/llth 


Is  this  the  correct  unit  name? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  unit  name  is  correct 

2  -  no,  unit  name  is  incorrect 


Enter  the  number  corresponding  to  the  correct  tf  type. 

1  -  armor 

2  -  mechanized 

3  -  infantry 


Enter  the  number  corresDonding  to  the  correct  tf  size. 

1  -  battalion 

2  -  brigade 


Enter  the  number  corresponding  to  the  correct  mission. 

1  -  attack 

2  -  defend 


Is  this  the  first  day  of  this  mission  or  is  this  a 
succeeding  day  of  a  continuing  mission. 

Enter  the  correct  number  for  your  response 

1  -  first  day 

2  -  succeeding  day 


Enter  the  name  of  the  operation  of  which  this  mission 
is  a  part.  For  example-  D-DAY 

The  name  of  the  operation  is  Rising  Star 
Is  this  correct  ? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  operation  name  is  correct 

2  -  no,  operation  name  is  incorrect 


Enter  the  number 

1  -  conus 

2  -  europe 

3  -  korea 


corresponding  to 


the  correct  area. 


Enter  the  name  of  the  country  in  which  this  mission 
will  be  conducted.  For  example-  West  Germany. 

Be  sure  to  capitalize  the  first  letter  in  each  word 

The  name  of  the  country  is  Korea 
Is  this  correct  ? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  country  name  is  correct 

2  -  no,  country  name  is  incorrect 


Enter  the  number  corresponding  to  the  correct  climate. 

1  -  hct 

2  -  temperate 

3  -  cold 


Enter  the  number  corresponding  to  the  correct  intensity 

1  -  high 

2  -  mic 

3  -  low 


Do  you  expect  the  task  force  to  be  in  MOPP  level  three 
or  FIOPP  level  four  during  this  mission. 

Enter  the  correct  number  for  vour  response 

1  -  ves 

2  -  ho 


Enter  the  number  corresponding  to  the  correct  terrain 

1  -  open 

2  -  woods 

3  -  built  up 

4  -  mountainous 


Enter  the  number  corresponding  to  the  visibility 

1  -  good 

2  -  fair 

3  -  poor 


46 


Do  you  plan  on  significant  Air  Force  ground  support? 

Enter  the  correct  number  for  your  response 

1  -  yes 

2  -  no 


Enter  the  total  number  of  personnel  in  the  task  force. 


Enter  the  number  corresponding  to  the  ration  policy 
during  the  duration  of  this  operation. 

1  -  b_c_b 

2  -  c_c_b 
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ANALOGY  REASONING 


All  of  the  available  data  on  past  operations  has  been 
evaluated  to  identify  analogies  to  the  current  operation. 


A  previous  operation  is  considered  analogous  to  the 
current  operation  if  the  following  conditions  are  satisfied: 


1.  The  historical  record  of  the  previous  operation  has 

been  updated  with  actual  consumption  data. 

2.  Both  operations  have  the  same  mission. 

3.  Both  operations  took  place  in  the  same  area  of  the  world. 

4.  Both  operations  took  place  in  the  same  climate. 

5.  Both  operations  took  place  under  the  same  chemical 

defense  mission  oriented  protective  posture. 

6.  Both  operations  involved  the  same  combat  intensity. 

7.  Both  operations  were  first  day  engagements  or 

succeeding  day  engagements  of  the  same  mission  type. 


The  following  operations  are  analogous  under  this  definition. 


DATE 

UNIT 

MISSION 

AREA 

CLIMATE 

MOPP 

INTENSITY 

FIRST/SUCCEEDING  DAY 

01/02/86 

1/llth 

DEFEND 

KOREA 

COLD 

YES 

MID 

SUCCEEDING 

DAY 

22/02/86 

1/llth 

DEFEND 

KOREA 

COLD 

YES 

MID 

SUCCEEDING 

DAY 

04/03/86 

1/1 1th 

DEFEND 

KOREA 

COLD 

YES 

MID 

SUCCEEDING 

DAY 

12/01/87 

2/22nd 

OEFEND 

KOREA 

COLD 

YES 

MID 

SUCCEEDING 

DAY 

02/02/87 

3/33rd 

DEFEND 

KOREA 

COLD 

YES 

MID 

SUCCEEDING 

DAY 

23/02/87 

2/22r»d 

OEFENO 

KOREA 

COLO 

YES 

MID 

SUCCEEDING 

DAY 
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WATER  SUPPLY  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  water  supply  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
highest  number  of  quality  points  being  chosen  for  this 
purpose. 


DATE  UNIT  COUNTRY  UPDATE 


NAME 

SOURCE 

(2) 

( 1 ) 

25/02/87 

2/22nd 

YES 

NO 

02/02/87 

3/33rd 

YES 

NO 

12/01/87 

2/22nd 

YES 

NO 

04/03/86 

1/llth 

YES 

YES 

22/02/86 

1/llth 

YES 

YES 

01/02/86 

1/llth 

YES 

YES 

SUBSISTENCE  SUPPLY  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  subsistence  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
hiqhest  number  of  quality  points  being  chosen  for  this 
purpose. 

.bf  tiny 


DATE 

UNIT 

UNIT 

NAME 

UPDATE 

SOURCE 

(1) 

(1) 

23/02/87 

2/22nd 

NO 

NO 

02/02/37 

3/33rd 

NO 

NO 

12/01/87 

2/22nd 

NO 

NO 

04/03/86 

1/llth 

YES 

YES 

22/02/36 

1/1 1th 

YES 

YES 

01/02/86 

1/llth 

YES 

YES 
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GENERAL  SUPPLY  REASONING 


! 

The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
I  areas  pertinent  to  general  supply  consumption.  Each  of  the 

points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (2)  =  2  points  for  Ar_GROUl‘ID_SUPPCRT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
highest  number  of  quality  points  being  chosen  for  this 
purpose. 


DATE 

UNIT 

AF 

GRND_SPT 

TERRAIN 

VISIBILITY 

UNIT 

NAME 

COUNTRY 

NAME 

OPERATION 

NAME 

UPDATE 

SOURCE 

(2) 

(  2  ) 

( 1 ) 

(1) 

(1) 

(  1  1 

i  2  ) 

23/02/87 

2/22nd 

NO 

YES 

YES 

NO 

YES 

YES 

NO 

02/02/87 

3/33rd 

NO 

NO 

NO 

NO 

YES 

NO 

NO 

12/01/87 

2/22nd 

NO 

NO 

NO 

NO 

YES 

YES 

NO 

04/03/86 

1/11 th 

YES 

YES 

YES 

YES 

YES 

NO 

YES 

22/02/86 

l/llth 

YES 

NO 

NO 

YES 

YES 

YES 

YES 

01/02/86 

1/llth 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

\ 
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FUEL  SUPPLY  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  fuel  supply  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  ( 2 )  =  2  points  for  AF_GROUND_SUPPORT 

Up  to  three  previous  operations  are  considered  in  the 
adjustment  algorithm,  with  those  operations  with  the 
highest  number  of  quality  points  being  chosen  for  this 
purpose . 


DATE 

UNIT 

AF 

GRN0_SPT 

TERRAIN 

UNIT 

NAHE 

COUNTRY 

NAME 

OPERATION 

NAME 

UPDATE 

SOURCE 

(  2  ) 

(  3  ) 

(  1 ) 

( 1 ) 

(  1  ) 

1  2  ) 

23/02/87 

2/2 2nd 

NO 

YES 

NO 

YES 

YES 

NO 

02/02/87 

3/33rd 

NO 

NO 

NO 

YES 

NO 

NO 

12/01/87 

2/ 2  2nd 

NO 

NO 

NO 

YES 

YES 

NO 

04/03/86 

1/11 th 

YES 

YES 

YES 

YES 

NO 

YES 

22/02/86 

1/1 1th 

YES 

NO 

YES 

YES 

YES 

YES 

01/02/86 

1/1 1th 

YES 

YES 

YES 

YES 

YES 

YES 

I 
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AMMUNITION  REASONING 


The  analogous  operations  are  evaluated  on  the  strength 
of  their  similarity  to  the  current  operation  in  those 
areas  pertinent  to  ammo  supply  consumption.  Each  of  the 
points  of  similarity  are  weighted  independently. 

The  weighting  of  each  item  is  in  parenthesis  below  the 
item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 

The  three  previous  operations  with  the  highest  number  of 
quality  points  are  used  in  the  adjustment  algorithm. 


DATE 

UNIT 

AF 

GSND_SPT 

TERRAIN 

VISIBILITY 

UNIT 

NAME 

COUNTRY 

NAME 

OPERATION 

NAME 

UPDATE 

SOURCE 

(3) 

(  2  ) 

(1) 

( 1  ) 

(1) 

(1) 

(  1 ) 

23/02/87 

2/22nd 

NO 

YES 

YES 

NO 

YES 

YES 

NO 

02/02/87 

3/33rd 

NO 

NO 

NO 

NO 

YES 

NO 

NO 

12/01/67 

2/2 2nd 

NO 

NO 

NO 

NO 

YES 

YES 

NO 

04/03/86 

1/llth 

YES 

YES 

YES 

YES 

YES 

NO 

YES 

22/02/86 

1/llth 

YES 

NO 

NO 

YES 

YES 

YES 

YES 

01/02/86 

1/llth 

YES 

YES 

YES 

YES 

YES 

YES 

YES 
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TASK  FORCE  COMPOSITION 


M2  INF  FIGHTING  VEH 
M3  CAV  FIGHTING  VEH 
M113  PERS  CARRIER 
M901  CBT  VEH  ITV 
H125A1  SIMM  CARR 
M106A1  107MM  CARR 
M102  105MM  HCW 
Ml 09  155 HIT  SP  HOW 
MHO  8in  SP  HOW 
LAUN-LOAD  MLRS 
M163  VULCAN  AIR  DEF 
M730  CHAP  AIR  DEF 
Ml  TANK  105MM 
M60  TANK  105MM 
TOW  LAUNCHER 
M2 2 2  DRAGON  LNCHR 
M2  50  CAL  MG 
MSO  MG 
M16A1  RIFLE 


40 

5 

19 

5 

9 

12 

9 

9 

9 

0 

5 

3 

54 

54 

26 

44 

123 

49 
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AUTOMATED  LOGISTICS  PLAN 


DATE 

UNIT 

TASK  FORCE  TYPE 
TASK  FORCE  SIZE 
MISSION 
DURATION 

COMBAT  INTENSITY 

OPERATION  NAME 

AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBILTY 

AF  GROUND  SUPPORT 

MOPP  LEVEL  3/4 

PERSONNEL  STRENGTH 

RATION  POLICY 


03/03/87 

1/llth 

ARMOR 

BRIGADE 

DEFEND 

SUCCEEDING  DAY 
MIO 

Rising  Star 

KOREA 

Korea 

COLD 

OPEN 

GOOD 

YES 

YES 

3500 

c_c_b 


HISTORICAL  DATA  AVAILABLE  YES 

DATE  01/02/86  04/03/86  22/02/86 

UNIT  1/11 th  1/llth  1/1 1th 


SUPPLY  ITEM 


LOGISTICS  ESTIMATE 
GENERAL  EST.  ADJUSTMENTS  FINAL  EST. 


water 

12320 

2004 

14324 

gallons 

8  rations 

3500 

2187 

5687 

meals 

MRE  rations 

7000 

-2000 

5000 

meals 

class  II  supplies 

6 

2 

8 

STONS 

diesel  fuel 

56257 

8990 

65247 

gallons 

class  IV  supplies 

7 

-2 

5 

STONS 

tank  ammo  105mm 

2268 

332 

2600 

rounds 

TOW  ammo 

182 

18 

200 

rounds 

DRAGON  ammo 

88 

-8 

80 

rounds 

Howitzer  ammo  105mm 

2736 

64 

2800 

rounds 

Howitzer  ammo  155mm 

2916 

-166 

2750 

rounds 

Howitzer  ammo  8in 

2115 

185 

2300 

rounds 

Vulcan  ammo  20mm 

8100 

1900 

10000 

rounds 

Mortar  ammo  81mm 

360 

-60 

300 

rounds 

Mortar  ammo  107mm 

540 

110 

650 

rounds 

MG  ammo  .50  caliber 

8856 

144 

9000 

rounds 

MG  ammo  7.62mm 

8673 

-673 

8000 

rounds 

rifle  ammo  5.56mm 

120000 

-106000 

14000 

rounds 

class  VII  supplies 

26 

4 

30 

STONS 

class  VIII  supplies 

2 

0 

2 

STONS 

class  IX  supplies 

4 

2 

6 

STONS 

APPENDIX  C 

SAMPLE  OUTPUT  FROM  OTHER  PROGRAM  FUNCTIONS 


UPDATING  A  RECORD 


You  will  now  be  asked  information  about  the  operation, 
for  which  you  have  actual  consumption  data. 


Enter  name  of  unit  which  conducted  the  operation 
For  example-  l/33rd 

The  name  of  the  unit  was  2/77 th 


Is  this  the  correct  unit  name? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  unit  name  is  correct 

2  -  no,  unit  name  is  incorrect 


Enter  the  date  on  which  the  operation  took  place. 
Use  the  form  dd/mm/yy 

The  date  of  the  operation  was  24/05/87 
Is  this  the  correct  date? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  date  is  correct 

2  -  no,  date  is  incorrect 


Enter  the  number  corresponding  to  the  correct  mission. 

1  -  attack 

2  -  defend 


What  was  the  source  of  the  information  for  this  update 

Enter  the  correct  number  for  your  response 

1  -  estimate 

2  -  factual  information 


Enter  the  actual  consumption  for  each  of  the  supply 
items  that  follow.  If  no  actual  consumption  figures 
are  available,  enter  0  . 


Enter  the  number  of  water  gallons 

20000 

Enter  the  number  of  B  rations  meals 

3100 

Enter  the  number  of  MRE  rations  meals 

8100 

Enter  the  number  of  class  II  supplies  STONS 
7 

Enter  the  number  of  diesel  fuel  gallons 

77700 


The  record  has  been  updated. 
Enter  c  to  continue 


DELETING  A  HISTORICAL  RECORD 


You  will  now  be  asked  information  about  the  operation 
that  you  want  deleted. 


Enter  name  of  unit  which  conducted  the  operation 
For  example-  l/33rd 

The  name  of  the  unit  was  2/77 th 


Is  this  the  correct  unit  name? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  unit  name  is  correct 

2  -  no,  unit  name  is  incorrect 


Enter  the  date  on  which  the  operation  took  place. 
Use  the  form  dd/mm/yy 

The  date  of  the  operation  was  24/05/87 
Is  this  the  correct  date? 

Enter  the  number  corresponding  to  your  answer. 

1  -  yes,  date  is  correct 

2  -  no,  date  is  incorrect 


Enter  the  number  corresponding  to  the  correct  mission. 

1  -  attack 

2  -  defend 


The  record  was  found  and  deleted. 


Enter  c  to  continue 
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DIRECTORY 


DATE 

UNIT 

MISSION 

UPDATED 

01/04/86 

2/77th 

ATTACK 

YES 

04/04/86 

2/77th 

ATTACK 

YES 

06/04/86 

2/77  th 

ATTACK 

YES 

10/05/86 

3/24th 

ATTACK 

YES 

15/05/86 

l/81st 

ATTACK 

YES 

03/04/87 

2/77th 

ATTACK 

YES 

07/04/87 

2/77th 

ATTACK 

YES 

22/04/87 

2/77th 

ATTACK 

YES 

05/05/87 

3/24th 

ATTACK 

YES 

16/05/87 

2/11 th 

ATTACK 

YES 

24/05/87 

2/77th 

ATTACK 

YES 

Enter  c  to  continue 


v*ir*jmir».vrF)r*  «-  u 


HISTORICAL  RECORD 


DATE 

UNIT 

TASK  FORCE  TYPE 

TASK  FORCE  SIZE 

MISSION 

DURATION 

COMBAT  INTENSITY 

OPERATION  NAME 

AREA 

COUNTRY 

CLIMATE 

TERRAIN 

VISIBIITY 

AF  GROUND  SUPPORT 

MOP?  LEVEL  5/4 

PERSONNEL  STRENGTH 

RATION  POLICY 

UPDATE  SOURCE 


24/05/87 

2/77th 

ARMOR 

BRIGADE 

ATTACK 

FIRST  DAY 

HIGH 

Ra forger 
EUROPE 

Hast  Germany 

TEMPERATE 

OPEN 

FAIR 

YES 

YES 

3500 

c_c_b 

FACTUAL 


HISTORICAL  DATA  AVAILABLE  YES 

DATE  22/04/87  04/04/86  16/05/87 

UNIT  2/77th  2/77th  2/77th 


SUPPLY  ITEM 

water 
B  rations 
MRE  rations 
class  II  supplies 
diesel  fuel 
class  IV  supplies 
tank  ammo  105mm 
TOW  ammo 
DRAGON  ammo 
Howitzer  ammo  105mm 
Howitzer  ammo  155mm 
Howitzer  ammo  8 in 
Vulcan  ammo  20mm 
Mortar  ammo  81nm 
Mortar  ammo  107mm 
MG  ammo  .50  caliber 
MG  ammo  7.62ran 
rifle  ammo  5.56mm 
class  VII  supplies 
class  VIII  supplies 
class  IX  supplies 


GENERAL  EST. 


16170 

3500 

7000 

6 

69530 

7 

5616 

182 

88 

3384 

3366 

2592 

11952 

873 

1308 

21525 

21217 

297000 

26 

2 


4 


LOGISTICS  ESTIMATE 


ADJUSTMENTS 

FINAL  EST 

2556 

18726 

-527 

2973 

2564 

9564 

1 

7 

8888 

78418 

1 

8 

-616 

5000 

66 

248 

-18 

70 

1137 

4521 

-355 

3011 

520 

3112 

4117 

16069 

-163 

710 

300 

1608 

-5600 

15925 

-6046 

15171 

3470 

300470 

4 

30 

-1 

1 

4 

8 

ACTUAL  CONS. 


20000 

gallon 

3100 

meals 

8100 

meals 

7 

STONS 

77700 

gallon 

8 

STONS 

5117 

rounds 

247 

rounds 

75 

rounds 

4600 

rounds 

3040 

rounds 

2930 

rounds 

15650 

rounds 

705 

rounds 

1572 

rounds 

16350 

rounds 

16000 

rounds 

300000 

rounds 

29 

STONS 

1 

STONS 

9 

STONS 

APPENDIX  D 
PASCAL  PROGRAM 


(*$S30000*) 

program  thesis  ( input, output ) ; 


const 


datesize 

= 

8; 

unitsize 

= 

10; 

num_supply_items 

= 

21; 

supoly  item_namesize 

= 

19; 

unib^o'?_measure_size 

= 

7; 

maxflles 

= 

20; 

max_analogies 

= 

3; 

opera tion_name_length= 

13; 

country_name_length 

S 

14; 

(*the  width  of  the  date  field 
( *the  width  of  the  unit  name  field 
(*number  of  items  of  supply  for  which  the 
program  generates  logistics  estimates 
(*the  width  of  the  supply  item  name  field 
(*the  width  of  the  unit  of  measure  field 
(*number  of  operations  in  history  files 
(*max  number  of  analogies  used  to  adjust 
general  estimates 
(*width  of  operation  name  field 
(*width  of  country  name  field 


type 


unit  of_measure_string  =  packed  array  ( . 1 . . unit_of _measure_size . )  of 

char; 

supply_item_string  =  packed  array  ( . 1 . . supply_item_namesize . )  of 

char ; 

data  =  record 

supply  item 
general_estimate 
adjustments 
final  estimate 
actual^consumption 
unit  ot_measure 
end;  (*eh3  record  data*) 

consumearray  =  array  ( . 1 . .num_supply_items . )  of  data; 


supply_item_string,- 

integer; 

integer; 

ir.tecer ; 

integer ; 

unit_of_measure_string 


datestring 
unitstring 
operationstring  =  packed  array 
countrystring  =  packed  array 


.1. .datesize. )  of  char; 
. 1 . .unitsize . )  of  char; 


=  packed  array 
=  packed  array 

. 1 . .operation_name_lenqth. )  of  char; 
. 1 . . country_name_lengtn. )  of  char; 
attack, defend) ; 
conus ,  europe ,  fcorea)  ; 
hot , temperate , cold)  ; 
hi , mid. low) ; 
bn.bde) ; 

armor ,mech , inf)  ; 
woods , open, built-up, mountains) 
first_day , succeeding  day) ; 
none .estimate , factual) ; 
good, fair , poor) ; 


missions 
areas 
climates 
intensities 
tf_sizes 
tf_t'_.’pes 
terrains 
durations 
update  sources 
visibilities 

ration_policy_type  =  (b_c_b , c_c_b) ;  (*mix  of  ration  types 


analogy_data  =  record 


inteoer;  (*index  into  analogies  used 
datestring; ( *date  of  analogous  operation 
unitstring; ( *unit  name  in  analogous  operation 
__  integer  (*measure  of  analogy  strength 

end‘;(*end  record  analogy_info*) 

analogy_array  =  array (. 1 . .max_analogies . )  of  analogy_data ; 


analogy_index 
date 
unit 

quaiitvpts 


analogy_record  =  record 

num  analogies  :  integer,- 
analogies  :  analogy  array 
end;(*end  record  analogy_info* ) 


oprecord  =  record 
date 
unit 
mission 
climate 
area 
tf_type 
tf_size 
intensity 
moppcondition 
personnel  strength 
ration_poTicy 
AF_ground_spt 
country 
terrain 
update_source 
duration 
visibility 
operation_name 
consumption 
update 

analogy  info 


datestring; 
unitstring; 
missions ; 
climates ; 
areas ; 
tf_types ; 
tf_sizes ; 
intensities ; 
boolean; 
integer ; 

ration_policy_type ; 
boolean; 
countrystring; 
terrains; 
update_sources ; 


durations ; 


visibilities  (* 
operationstring; 
consumearray ; 
boolean; 
analogy_record 


analogy_mfo  :  analogy_record 

end;(*ena  record  oprecord*) 

historytype  =  array  ( .1 . .maxfiles . )  of  oprecord; 
hist_file  =  file  of  oprecord; 


history 


history_file 
file  counter 
moduTe_code 
finished 


historytype;  (*array  of  operations  in  the  history 
files 


hist_f ile ; 
integer; 
char  ; 
boolean; 


(^secondary  storage  file  of  oprecords 
(^number  of  records  in  history  file 


reuser  selection  of  program  module 
(*flag  to  halt  program  execution 


procedure  initialize; 
var 

ok  :  boolean; 
answer  :  char; 
begin 
page  ; 

finished:3  false; 


(^validation  of  acceptable  user  choice 
(*user  response  about  historical  records  *) 


writeln( ‘ This  program  is  designed  to  assist  the  tactical  unit'): 
writeln; ' logistics  planner  at  the  battalion  and  brigade  level.1); 
writeln;wri£eln;writeln; 

write('Is  there  an  already  existing  historical  file  of  previous1) 

writeln('  operations?'); 

writeln.-writeln; 


wnte(' Is  there  an  already  existing  historical  file  of  previous' 
writeln('  operations?'); 
writeln.-writeln; 
ok:=  false,- 

writelnf ' Enter  the  number  corresponding  to  your  answer.'): 
writeln(  '  1  -  yes,  there  i'>  a  file  called  hist  hist_fiie  a1); 

writeln( 1  2  -  no,  there  is  no  historical  file  '); 

repeat 

readln(answer) ; 
writeln,- 

writeln(answer) ; 
file_counter :=  0; 
if  answer  =  '1'  then 
begin 

ok:=  true,- 

reset(history  file, 'hist  oprecord  a'); 
while  not  eof(history_file )  do 
begin 

file  counter:3  file_.counter  +  1; 
read|historv_f ile ,history( . file_counter . ) ) 
end; 

end 


else  if  answer  =  '2'  then  ok.-  =  true 

else  writeln('You  have  made  an  error  in  input,  try  again.1) 
until  ok  =  true; 
page 

end;  (*er.d  procedure  initialize*) 


procedure  module_choice ,- 
var 

ok  :  boolean;  ^validation  of  acceptable  user  choice 

continue_char  :  char;  (*user  response  to  continue  with  program 

begin 

writeln( ' There  are  1 , file_counter :2 , '  records  in  the  history  files, 
writein ( ' Under  current  program  parameters,  there  is  storage  for  ') 
writeln(maxfiles-file_coun€er :2 , 1  additional  records.'); 
writein; 

writelni 'Additional  storage  can  be  obtained  by  either  deleting'),- 

writelnt 1  already  existing  records  from  the  history  files  or  by'); 

writeln( 1  changing  the  program  parameters.'); 

write  In,- write  In; 

writeln( 1  Enter  c  to  continue1); 

repeat 

readln(continue_char) 
until  continue_char  =  1 c'; 
page  • 

wnteln( 'The  program  will  perform  the  following  tasks.'); 
writeln( ' Enter  the  number  corresponding  to  the  desired  function.'); 


writein ( 
writein; 
writeln( 
writein,- 


Enter  the  number  corresponding  to  the  desired  function.'); 
1  -  create  a  logistics  estimate  for  an  operation.'); 


3  -  delete  the  records  pertaining  to  operations  for'); 

which  the  user  no  longer  has  any  use.')  ; 

4  -  print  the  historical  files.'),- 


writelm'  2  -  update  the  historical  file  of  a  previous  operation'); 

writeln('  with  user  supplied  consumption  data.'); 

writein; 

writelnf'  3  -  delete  the  records  pertaining  to  operations  for'); 
writeln('  which  the  user  no  longer  has  any  use.')  ; 
writein; 

writeln{'  4  -  print  the  historical  files.'); 
writein; 

writeln('  5  -  print  the  directory.'); 
writein; 

v;riteln('  6  -  quit  the  program.'),- 
writein ; writein ; 
ok:=  false; 
repeat 

readln (module  code)  ,- 

if  (module_coae  =  '1')  or  (module_code  =  '2')  or 
(module_code  =  '3')  or  (module_code  =  '4')  or 
(moaule_code  =  '5')  or  (module_coae  =  '6')  then 
begin 

ok:=  true; 

writeln(’The  module  selected  was  #  '  ,module_code) 
end 

else  begin 

writeln('you  have  made  an  error  in  input,  try  again.'),- 
writein 
end; 

until  ok  =  true ; 
page  ,- 

end,-  (’'end  procedure  module_choice*) 


/  ********************************************************************** 

MODULE  LOGISTICS  ESTIMATE 

******************************* ********* ********** ******************** ^ 
procedure  log_estimate ; 
const 

LIN^size  =  6;  (*the  width  of  the  line  item  number  field*) 

enditem^.name_size  =  19;  (*the  width  of  the  enditem  name  field  *) 

num_endltems  =  19;  (*the  number  of  end  items  modelled  in  this 

program  *) 

type 

LINstring  =  packed  array  / .  1 .  .LIN^size . )  of  char.- 

enditem_nametype  *  packed  array  ( .1. .enditem_name_size. )  of  char; 

enditem  =  record 

LIN  :  LINstring; 

nomenclature  :  enditem_nametype; 

quantity  :  integer 

end,-/*end  record  enditem*) 

compositiontype  =  array  ( . 1 . .num_enditems . )  of  enditem,- 

var 

taskforce  : compositiontype ;  (*record  containing  all  the  information 

about  the  components  of  a  task  force*) 
newrecord  :  oprecord;  (*record  containina  all  the  information 

about  an  operation  *) 


procedure  build_task_force ; 
var 

i  :  integer;  (*index  variable  for  task  force  items*) 
begin 

writeln('You  will  now  begin  building  the  task  force.1); 

writeln;writeln;writeln; 

taskforce( .1. ) .LIN  :=  'J81750'; 

taskforce/ . 1 .) .nomenclature :=  'M2  INF  FIGHTING  VEH' ; 
taskforce/. 1.). quantity  :=  0; 
taskforce/ .2. ) .LIN  :=  'C76335'; 

taskforce/ . 2 .) .nomenclature :=  'M3  CAV  FIGHTING  VEH1; 

taskforce/ .2. ) .quantity  ;=  0; 
taskforce  .3.). LIN  :=  ^12087'; 

taskforce/ .3. ) .nomenclature :=  'M113  PERS  CARRIER  '; 

taskforce/ .3. ) .quantity  :=  0; 
taskforce/ .4. ) .LIN  :=  '*E56896'; 

taskforce/ .4. ) .nomenclature :=  'M901  CBT  VEH  ITV  '; 

taskforce/ .4. } .quantity  :=  0; 

taskforce/ . 5 .)  .LIN  -.=  1D10726'; 

taskforce/ .5. ) .nomenclature :=  'M125A1  81MM  CARR 

taskforce/ .5. ) .quantity  :=  0; 

taskforce/ .6. ) .LIN  :=  1D10741'; 

taskforce / .6 .) .nomenclature :=  ‘M106A1  107MM  CARR 

taskforce/ .6. ) .quantity  :=  0; 
taskforce/ .7. ) .LIN  :=  1XKXXXXI; 

taskforce/ .7 .)  .nomenclature -.=  'M102  105MM  HOW  '; 

taskforce/ .7. ) .quantity  :=  0; 

taskforce/ .8. ) .LIN  :=  1K57667'; 

taskforce/ .8. ) .nomenclature :=  'M109  155MM  SP  HOW 

taskforce/ .8. ) .quantity  :=  0; 

taskforce/ .9. ) .LIN  :=  1K56981  \- 

taskforce/ .9. )  .nomenclature  :=  'MHO  8in  SP  HOW 

taskforce/ .9 .) .quantity  :=  0; 

taskforce/ .10. ) .LIN  :=  'L448941; 

taskforce /.  10  .)  .nomenclature -.=  1  LAUN-LOAD  MLRS 

taskforce/ . 10 .) .quantity  :=  0; 

taskforce (.11.). LIN  -.=  1J96694'  ; 

taskforce  (.  11 .)  .nomenclature  :=  ’M163  VULCAN  AIR  DEF1  ,- 
taskforce (. 11 .) .quantity  :=  0; 
taskforce (. 12 .) .LIN  :=  "DllSSS1; 

taskforce /. 12 .) .nomenclature :=  'M730  CHAP  AIR  DEF 
taskforce/ . 12. ) .quantity  :=  0; 


taskforce { . 13 . ) .LIN  :=  'T13374'; 

taskforce/ . 13 .) .nomenclature :=  ‘Ml  TANK  105MM  '  ; 

taskforce/ .13. ) .quantity  :=  0; 
taskforce/ . 14. ) .LIN  :=  ’’V131011; 
taskforce/ . 14 .) .nomenclature :=  ‘M60  TANK  105MM 
taskforce /. 14. ) .quantity  :=  0; 
taskforce/. 15.  .LIN  :=  'XXXXXX1; 
taskforce/ .15. ) .nomenclature :=  'TOW  LAUNCHER 
taskforce /. 15 .) .quantity  0 ,- 
taskforce/.  16.). LIN  :=  ''XXXXXX1; 

taskforce /. 16 .) .nomenclature :=  'M222  DRAGON  LNCHR 
taskforce/ .16. ) .quantity  :=  0; 
taskforce  .17.). LIN  :=  ^ XXXXXX 1 ; 

taskforce/ . 17 .) .nomenclature  :=  'M2  50  CAL  MG  1 ; 

taskforce/ . 17 .) .quantity  :=  0; 
taskforce/ .18. )  .LIN  :=  ‘’XXXXXX1; 

taskforce/ . 13. ) .nomenclature :=  'M60  MG  '; 

taskforce/ . 18. ) .quantity  :=  0; 
taskforce/.  19.). LIN  .-=  1 XXXXXX1; 

taskforce/ .19. )  .nomenclatures  ‘M16A1  RIFLE  1  ; 

taskforce/ .19. ) .quantity  :=  0; 
for  is  1  to  r.um_enditems  do 
begin 

write/ 'enter  the  number  of  ‘ , taskforce/ . i. ) .nomenclature) ; 
writeln/ 1  in  your  task  force.'); 
re adln( taskforce/ . i. ) . quantity 
writeln/taskforce/ .i. ) .quantit 
end; 
page  ; 

writeln/ 'the  task  force  has  been  built,  task  force  composition  is') 
wr ite In; writeln ; write In; 
for  is  1  to  num_enditems  do 
begin 

write/taskforce/ .i. ) .nomenclature, 1  1  ) ; 

writeln/taskforce/ .i. ) .quantity) 
end 

end;(*end  nrocedure  buildtaskforce*) 


procedure  create_scenario ; 

procedure  readdate; 
var 

ok  :  boolean; 

newdate  :  datestring; 
answer  :  char; 
begin 

ok:=  false; 
reDeat 

‘writeln/ 1  Enter  the  date  on  which  the  operation  is  to  commence.1); 
writeln/ 'Use  the  form  dd/mm/yy1); 
readln/ newdate) • 
v/riteln; 

writeln/ 'The  date  of  the  operation  is  ',  newdate); 
writeln; 

writeln/ 'Is  this  the  correct  date?'); 

writeln/ ' Enter  the  number  corresponding  to  your  answer.'); 
writeln/1  1  -  yes,  date  is  correct  '); 

writeln/1  2  -  no,  date  is  incorrect’ ),- 

readln/answer )  ; 
if  answer  =  '1'  then 
begin 

r.ewrecord.date -.=  newdate; 
ok:=  true 
end 

until  ok  =  true; 
writeln; write In; write In 
end;  (*end  procedure  readdate*) 
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procedure  readunit; 
const 

blanks  =  1  1  ; 

var 

ok  :  boolean; 

answer  :  char; 
unitname  :  unitstring; 
begin 

ok:=  false; 
repeat 

writeln( ' Enter  the  name  of  the  unit  for  which  this  estimate  or  '); 
writeln( ' update  is  being  prepared.  For  example-  l/33rd  ’); 
readln(unitname) ; 
strconcat(unitname .blanks) ; 
writeln; 

writeln('The  name  of  the  unit  is  unitname); 
v?riteln,*writeln; 

writeln('Is  this  the  correct  unit  name?'); 
writelm ' Enter  the  number  corresponding  to  your  answer.'); 
writelm'  1  -  yes,  unit  name  is  correct  '); 

writeln('  2  -  no,  unit  name  is  incorrect1); 

reaaln(answer) ; 
if  answer  =  '1'  then 
begin 

newrecord.unit :=  unitname; 
ok :=  true 
end 

until  ok  =  true; 
writeln.-writeln.-writeln 
end;  (*end  procedure  readunit*) 


procedure  readmission; 
var 

ok  :  boolean; 

mission_code  :  char,- 

begin 

writelnf ' Enter  the  number  corresponding  to  the  correct  mission.'); 

writeln( '  1  -  attack  '); 

writeln('  2  -  defend  '); 

ok :  =  false; 

repeat 

readln(mission_code) ; 
if  mission_code  =  '1'  then 
begin 

newrecord. mission  :=  attack; 
ok.-=  true 
end 

else  if  mission_code  =  '2'  then 
becin 

newrecord. mission :=  defend; 
ok:=  true 
end 

else  writeln('you  have  made  an  error  in  input,  try  again.'); 
until  ok  =  true,- 
wnteln.-writeln  ;writeln 
end;  (*end  procedure  readmission*) 
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procedure  readclimate;  ; 

var 

ok  :  boolean; 

climate_code  :  char; 

begin 

wnteln( 1  Enter  the  number  corresponding  to  the  correct  climate.'); 

writeln( '  1  -  hot  '  ) ;  ] 

writelnt'  2  -  temperate  ');  | 

writeln( '  3  -  cold  ' ) ;  ' 

J 
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ok:=  false; 
repeat 

readln(climate_code) ; 

if  climate_code  =  1 1 1  then 
begin 

newrecord. climate  :=  hot; 
ok:=  true 
end 

else  if  climate_code  =  '2'  then 
begin 

newrecord. climate :=  temperate ; 
ok:=  true 
end 

else  if  climate_code  =  '3'  then 
begin 

newrecord. climate  :=  cold; 
ok:=  true 
end 

else  writeln('you  have  made  an  error  in  inDut,  try  again.1) 
until  ok  =  true; 
write  In  .-write  In;  write  In 
end;  (*er.d  procedure  readclimate*) 


procedure  readarea,- 
var 

ok  :  boolean,- 

area_code  :  char; 
begin 

writelnf 1  Enter  the  number  corresponding  to  the  correct  area.’) 

writelnf1  1  -  conus  1 ) ; 

writeln('  2  -  europe 

writein('  3  -  korea 

ok:=  false,- 

repeat 

readln(area_code) ; 
if  area^code  =  '1'  then 
beam 

newrecord. area  :=  conus; 
ok:=  true 
end 

else  if  area_code  =  '2'  then 
begin 

newrecord. area :=  europe; 
ok:=  true 
end 

else  if  area_code  =  '3'  then 
begin 

newrecord. area :=  korea; 
ok:=  true 
end 

else  writel.n( '  you  have  made  an  error  in  input,  try  again.') 
until  ok  =  true,- 
write  In,- write  l.n, -write  In 
end,-  (*end  procedure  readarea*) 


procedure  readtftype,- 
var 

ok  :  boolean; 

tftype_code  :  char,- 
begin 

writeln( 1  Enter  the  number  corresponding  to  the  correct  tf  type 

writelni'  1  -  armor  ' ) ; 

writelni1  2  -  mechanized 

writeln('  3  -  infantry  '),- 

ok:=  false,- 

repeat 

readin( tf type_code ) ; 
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if  tftyoe_code  =  '1'  then 
begin 

newrecord. tf_type  :=  armor? 
ok:=  true 
end 

else  if  tftype_code  =  1 2 ‘  then 
begin 

newrecord. tf_type :=  mech? 
ok:=  true 
end 

else  if  tftype  code  =  '3'  then 
begin 

newrecord. tf_type  :=  inf? 
ok:=  true 
end 

else  writeln('you  have  made  an  error  in  input,  try  again.')? 
until  ok  =  true? 
write In, •writeln?writeln 
end?  (*end  procedure  readtftype*) 


procedure  readtfsize? 
var 

ck  :  boolean? 

tfsize_code  :  char? 
begin 

writelnf ' Enter  the  number  corresponding  to  the  correct  tf  size.')? 

writelnl'  1  -  battalion  ')? 

writeln('  2  -  brigade  ')? 

ck:=  false? 

repeat 

readln(tfsize_code) ? 
if  tfsize_code  =  '1'  then 
begin 

newrecord. tf_size  :=  bn? 
ok:=  true 
end 

else  if  tfsize_code  =  '2'  then 
begin 

newrecord. tf_size :=  bde? 
ok :=  true 
end 

else  writeln('you  have  made  an  error  in  input,  try  again.1)? 
until  ok  =  true? 
writeln?writeln?writeln 
end?  (*end  procedure  readtfsize*) 


procedure  readintensity? 
var 

ok  :  boolean? 

intensity_code  .-  char? 
begin 

writelnl ' Enter  the  number  corresponding  to  the  correct  intensity')? 

writelnl'  1  -  high  ')? 

v?riteln( 1  2  -  mid  '  )  ? 

writeln('  3  -  low  ')? 

ok:=  false? 

repeat 

readln(intensitvcode) ? 
if  intensity_code  =  '1'  then 
begin 

newrecord. intensity :=  hi? 
ck:=  true 
end 

else  if  intensity_code  =  '2'  then 
begin 

newrecord. intensity :=  mid? 
ok:=  true 
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else  if  intensity_code  =  '3'  then 
begin 

newrecord. intensity  :  =  low; 
ok:=  true 
end 

else  writeln('you  have  made  an  error  in  input,  try  again.'); 
until  ok  -  true; 
write  In  .-write  In;  write  In 
end;  (*e.nd  procedure  readintensity*) 


procedure  readmopp,- 
var 

ok  :  boolean; 
answer  :  char,- 
begin 

writeln('Do  you  expect  the  task  force  to  be  in  MOPP  level  three'); 

writeln(’or  MOPP  level  four  during  this  mission.'),- 

writeln; 

writeln! ' Enter  the  correct  number  for  your  response'),- 

writeln! '  1  -  yes '  )  ,- 

writeln!'  2  -  no  '),- 

ok:=  false,- 

repeat 

readln(answer )  ,- 
if  answer  =  ' 1 '  then 
begin 

newrecord. moppcondition :=  true ; 
ck:=  true 
end 

else  if  answer  =  '2'  then 
begin 

newrecord. moppcondition  :=  false  ,- 
ok:=  true 
end 

else  writeln('You  have  made  an  error  in  input,  try  again.'),- 
until  ok  =  true; 
writeln  .-writeln  ;writeln 
end;  ( ’'end  procedure  readmopp*) 


procedure  readpersonnel; 
const 

maxpersonnel  =  10000; 
var 

ck  :  boolean; 

numpersonr.el  :  integer; 
begin 

ok:=  false; 
repeat 

vriteln( ' Enter  the  total  number  of  personnel  in  the  task  force.1) 

readln(numpersonnel)  .- 

if  (numpersonr.el  >  0)  and  ^numpersonnel  <  maxpersonnel)  then 
begin 

newrecord.personnel_strength:=  numpe r sonne 1 • 
ok:=  true 
end 

else  begin 

write( 'The  number  of  personnel  exceeds  program  parameters 
writeln('  Input  the  number  again.') 
end 

until  ok  =  true,- 
writeln : write in ; write In 
end;  C^end  procedure  readpersonnel*) 


procedure  readterrain; 
var 

ok  :  boolean; 

terrain_code  :  char; 

begin 

writelnt 'Enter  the  number  corresponding  to  the  correct  terrain1); 

writeln! ‘  1  -  open  '); 

writelni1  2  -  woods  '); 

writeln!1  3  -  built  up  l); 

writeln!'  4  -  mountainous  '); 

ok:=  false; 

repeat 

readln(terrain_code) ; 
if  terrain_code  =  1 1 1  then 
begin 

newrecord. terrains  open; 
ok:=  true 
end 

else  if  terrain_code  =  '2'  then 
begin 

newrecord. terrain :=  woods; 
ok:=  true 
end 

else  if  terrain_code  =  '3'  then 
begin 

newrecord. terrains  built_up; 
ok:=  true 
end 

else  if  terrain_code  =  '4'  then 
begin 

newrecord. terrains  mountains; 
ok:=  true 
end 

else  writein('you  have  made  an  error  in  input,  try  again.'); 
until  ck  =  true; 
writeln  -  write  In,- write  In 
end;  ( *end  procedure  readterrain*) 


procedure  readvisibility ; 
var 

ok  :  boolean; 

visibi!ity_code  ;  char; 
begin 

writeln!  ‘  Enter  the  number  corresponding  to  the  visibility'); 

writelnt '  1  -  good  ' ) ; 

writelnt'  2  -  fair 

writeln( '  3  -  poor  ' ) ; 

ok:=  false; 

repeat 

readln(visibilitvcode) ; 
if  visibility_coae  =  '1'  then 
begin 

newrecord. visibility :=  good; 
ok-.=  true 
end 

else  if  visibility_code  =  '2'  then 
begin 

newrecord.  visibility  :=  fair,- 
ok:=  true 
end 

else  if  visibility_code  =  '3'  then 
begin 

newrecord. visibility :=  poor; 
ck.-=  true 
end 

else  writeln('you  have  made  an  error  in  input,  try  again.'); 
until  ok  =  true,- 
writeln ;  write  In,- write  In 


70 


V-V -V  .V-  ■•-'.'•-V.i.-V. 


end;  (*end  procedure  readvisibility*) 


procedure  readAF_ground_spt; 
var 

ok  :  boolean,- 
answer  :  char; 
begin 

writeln('Do  you  plan  on  significant  Air  Force  ground  support?') 
writeln; 

writeln( 'Enter  the  correct  number  for  your  response'),- 

writeini '  1  -  yes ' ) ; 

writeln( '  2  -  no  ' ) ; 

ok-.=  false,- 

repeat 

readln(answer) ,- 
if  answer  =  ' 1 '  then 
begin 

newrecord.AF_ground_spt :=  true; 
ok:=  true 
end 

else  if  answer  =  '2'  then 
begin 

newrecord. AF_ground_spt :=  false ; 
ok:=  true 
end 

else  writeln('You  have  made  an  error  in  input,  try  again.'),- 
until  ok  =  true; 
write In; writeln; write In 
end;  (*end  procedure  readAF_ground_spt*) 


procedure  readduration,- 
var 

ok  s  boolean ; 
answer  :  char; 
begin 

writeln('Is  this  the  first  day  of  this  mission  or  is  this  a'); 
writeln( ' succeeding  day  of  a  continuing  mission.'); 
writeln,- 

writeini; 1  Enter  the  correct  number  for  your  response'); 

writeln( '  1  -  first  day'); 

writeln('  2  -  succeeding  day  '); 

ok:=  false; 

repeat 

readln(answer)  ; 
if  answer  =  '!'  then 


begin 

newrecord. durations  first_day ; 
ok:=  true 
end 

else  if  answer  =  '2'  then 
begin 

newrecord.  duration  .-=  succeeding_day,- 
ok :=  true 
end 

else  writeln('You  have  made  an  error  in  input,  try  again.'); 
until  ok  =  true,- 
writeln  .-write  In,- write  In 
end;  (*end  procedure  readduration*) 


procedure  readoperation_name ; 
const 

blanks  =  '  '  ; 

var 

ok  .-  boolean; 

answer  :  char,- 


operation_name  :  operationstring; 
begin 

ok:=  false; 
repeat 

writeln( ' Enter  the  name  of  the  operation  of  which  this  mission 

writeln('is  a  part.  For  example-  D-DAY  '); 

readln(operation^name); 

strconcat (oper at ion_name, blanks) ; 

writeln; 

writeln('The  name  of  the  operation  is  1  ,  operation_name)  ,- 

writeln;writeln; 

writelnl'Is  this  correct  ?'); 

writeln ( ' Enter  the  number  corresponding  to  your  answer.'),- 
writelnl'  1  -  yes,  operation  name  is  correct  '); 

writeln( 1  2  -  no,  operation  name  is  incorrect1); 

readln ( answer ) ; 
if  answer  =  ' 1 1  then 
begin 

newrecord.operation_name :=  operation_name; 
ok:=  true 
end 

until  ok  =  true; 
writeln  .-write  In;  write  In 
end;  (*end  procedure  readoperation_name*) 


procedure  readccuntry_name ; 
const 

blanks  =  1  1  ; 

var 

ok  ;  boolean; 

answer  :  char,- 

country_name  -.  countrystring; 
beain 

"ok  :=  false; 
repeat 

writeln^' Enter  the  name  of  the  country  in  which  this  mission  ') 
writelnf ' will  be  conducted.  For  example-  West  Germany.1); 
writeln('Be  sure  to  capitalize  the  first  letter  in  each  word'); 
readln (countrv_name) ; 
strconcat(country_name .blanks) ; 
writeln; 

writeln('The  name  of  the  country  is  ',  country_name) ; 

wr  ite  In,- writeln  ,- 

writelni'Is  this  correct  ?'),- 

writelnl  ' Enter  the  n'umber  corresponding  to  your  answer.'); 
writelnl'  1  -  yes,  country  name  is  correct  '); 

writeln( '  2  -  no,  country  name  is  incorrect'); 

readln (answer) ; 
if  answer  =  ' 1 '  then 
begin 

newrecord. country :=  country_name ; 
ok:=  true 
end 

until  ok  =  true,- 
writeln  .-writeln;  writeln 
end;  (*end  procedure  readcountry_name*) 


procedure  readrationpolicy ; 
var 

ok  :  boolean,- 
answer  :  char,- 
begin 

vriteln( ' Enter  the  number  corresoonding  to  the  ration  policy'); 

writeln( '  during  the  duration  of  this  operation.  1  )  ,- 

writeln,-writeln; 

writelnl'  1  -  b_c_b'); 

writein( '  2  -  c_c_b 1 ) ; 


ok:=  false; 
repeat 

readln( answer) ; 

if  answer  =  ' 1 ‘  then 
begin 

newrecord. ration_policy ••  =  b_c_b ; 
ok:=  true 
end 

else  if  answer  =  '2'  then 
begin 

newrecord. ration_policy:=  c_c_b; 
ok:=  true 
end 

else  writeln('You  have  made  an  error  in  input,  try  again.'); 
until  ok  =  true,- 
writeln 

end;  (*end  procedure  readrationpolicy*) 


procedure  buildconsarray; 
var 

i  :  integer;  (*locp  control  variable*) 
begin 

newrecord. consumption! .1 .). supply  item  :=  'water  1 

newrecord. consumption! .1. ) .unit  oT„measure  :=  'gallons'; 
newrecord. consumption! .2. ). supply  item  :=  'B  rations  ' 

newrecord. consumption! . 2 .) .unit  of ^measure  :=  'meals  '; 
newrecord. consumption! . 3 supply  item  .-=  'MRE  rations  ' 

newrecord. consumption! .3. ) .unit  of ^measure  :=  'meals  '; 
newrecord. consumption! .4. ). supply  item  :=  'class  II  supplies  ' 
newrecord. consumption! .4. ) .unit  of^measure  :=  'STONS  ^  ; 
newrecord. consumption! . 5 .). supply  item  :=  'diesel  fuel  ' 

newrecord. consumotion! .5. ) .unit  ofjmeasure  :=  'gallons'; 
newrecord. consumbtion! .6. ) .supply  item  :=  'class  IV  supplies  ' 
newrecord. consumption ( .6. ) .unit  of ^measure  ;=  'STONS 
newrecord. consumption! .7 .) .supply  item  :=  'tank  ammo  105mm  ' 

newrecord.  consumption! .  7 .)  .unit  of  ...measure  i-  'rounds  '; 
newrecord. consumption! .8. ) .supply  item  :=  'TOW  ammo  ' 

newrecord. consumption! .8. ) .unit  of ^measure  :=  'rounds  '; 
newrecord. consumotion! .9. ) .supply  item  :=  'DRAGON  ammo  ' 

newrecord. consumption! .9. ) .unit_of .measure  :  =  'rounds  '; 
newrecord. consumption! . 10 .). supply  item  :=  'Howitzer  ammo  105mm 
newrecord. consumption! . 10 .) .unit  of.measure  :=  'rounds  '; 
newrecord. consumption! .11 .) .supply  item  :=  'Howitzer  ammo  155mm 
newrecord. consumption! . 11 . ) .unit  of^measure  :=  'rounds  '; 
newrecord. consumption! .12 .) .supply  Item  :=  'Howitzer  ammo  8in 
newrecord. consumption! . 12 .) .unit  of.measure  :=  'rounds  '; 
newrecord. consumption! .13. ) .supply  item  :=  'Vulcan  ammo  20mm 
newrecord. consumption! .13. ) .unit  of^measure  :=  'rounds 
newrecord. consumption! . 14 supply  item  -.=  'Mortar  ammo  81mm 
newrecord. consumption! .  14 . )  .unit  of.measure  :=  'rounds  '; 
newrecord. consumption! . 15 .). supply^ltem  :=  'Mortar  ammo  107mm 
newrecord. consumption! . 15 .). unit  ol^measure  :=  'rounds  '; 
newrecord. consumption! .16. ) .supply  Item  :=  'MG  ammo  .50  caliber 
newrecord. consumption! .16. ) .unit  of.measure  ;=  'rounds  '; 
newrecord. consumption ! .17 .) .supply  item  :=  'MG  ammo  7.62mm 
newrecord. consumption!  .  17  . )  .unit  of.measure  -.=  'rounds  '; 
newrecord. consumption! .18. ) .supply  item  :=  'rifle  ammo  5.56mm 
newrecord. consumption! .18. ) .unit  oT^measure  :=  'rounds  '; 
newrecord. consumption! . 19 supply  item  :=  'class  VII  supplies 
newrecord. consumption! .19. ) .unit  or^measure  :=  'STONS  '; 
newrecord. consumption! .20. ) .supply  item  :=  'class  VIII  supplies 
newrecord. consumption! . 20 .) .unit  cf ^measure  :=  'STONS  '; 
newrecord. consumption! .21 .) .supply  item  :=  'class  IX  supplies 
newrecord. consumption^ .21 . ) ,unit_of  ..measure  :=  'STONS 
for  i:=  1  to  num_suppxy  items  do 

newrecord. consumption!  .i. ) .actual_consumption  :=  0 
end;  !  •'end  procedure  buildconsarray*) 
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begin  (*begin  of  create  scenario*) 
page ; 

wntelni'The  following  questions  describe  the  operation  for  which  '): 

writelnl'the  program  will  create  a  logistics  requirements  estimate.1) 

writeln('All  questions  must  be  answered  as  directed.'); 

writeln;writeln;writeln; 

readdate ; 

readunit; 

readtftype ; 

readtfsize ; 

readmission; 

readduration; 

readcperation_name ; 

readarea ; 

readcour.try_name  ; 

readclimate ; 

readintensity; 

readmopp; 

readterrain,- 

readvisibility ; 

readAF_ground_spt ; 

readpersonnel; 

readrationpolicy ; 

buildcor.sarray  ; 

newrecord.update_source :=  none ; 
r.ewrecord. update  :=  false; 
end;(*end  procedure  create_scenario*) 


procedure  create_estimate; 
var 

i  :  integer;  (*index  variable  for  input  into  consarray*) 

procedure  water_estimate ; 
var 

drinking„requirements  :  real; 

heat_treatment  ;  real; 

personal_hyaiene  :  real; 

food_preparaticn  s  real; 

begin 

case  newrecord. climate  of 
hot  ;  begin 

if  newrecord. moppcondition  =  true  then 
drinking_requirements :=  3.5 
else  drinking_requirements :=  3.0; 
heat_treatment :=  0.2; 
personal_hygiene :=  0.7; 
if  newrecord. iationj3olicy  =  b_c_b  then 
food_preparation :=  1.0 
else  foodjpreparation :=  0.5 
end; 

temperate  :  begin 

if  newrecord. moppcondition  =  true  then 
drinking_requirements :=  3.0 
else  drinkihg_requirements :=  1.5; 
heat_treatment  :=  0.0; 
personal_hygiene :=  0.7; 
if  newrecord. ration_policv  =  b_c_b  then 
fcod_preparation :=  1 .6 
else  fooajpreparation 0.5 
end; 

cold  :  begin 

if  newrecord. moppcondition  =  true  then 
drinking_requirements  :=  2.0 
else  drinking_requirements :=  2.0; 
heat_treatment :=  0.0; 
personal_hyqiene :=  0.7; 
if  newrecord. ration_poiicy  =  b_c_b  then 


food_preparation:=  1.0 
else  fooa_preparation:=  0.5 
end 

end;  (*end  case  statement*) 

newrecord. consumption( . 1 . ) .general_estimate := 

round( (drinking_requirements  +  heat_treatment  +  personalhyqiene  + 
food_preparation)*  1.10  *  newrecord. personnel_strength) 
end;  (*end  procedure  water_estimate*) 


Erocedure  class_I_estimate ; 
egin 

if  newrecord. ration_policy  =  b_c_b  then 
begin 

newrecord. consumption ( .2. )  .general_estimate  .-  = 
(newrecord. personnel_strength  *  2); 
newrecord. consumption( . 3 . ) . general_estimate := 
newrecord.personnel_strength 

end 

else 

begin 

newrecord. consumption ( .3. ) . general_estimate := 
newrecord. personnel  strength  *  2; 
newrecord. consumption (”■  2. ) .  general_estimate  :  = 
newrecord.person.nel_strength 

end 

end;  (*end  procedure  class_I_estimate*) 


procedure  compute_general_supplies (consumption_array_index : integer ; 

consumption_factor  :real); 

begin 

newrecord. consumption( .consumption  array_index. ) .general  estimate := 
rouna( (newrecord. personnel_strenqtn  *  consumption_factor)  /  2000) 
end;  (*end  procedure  compute_generai_supplies’") 


procedure  diesel_fuel  estimate,- 

(^general  formula  used  =  for  each  weapon  ,  take  the  sum  of  the  following 

#  weapons  *  #hrs_idle  *  consumption_idle  + 

#  weapons  *  #hrs_xcntry  *  consumption_xcntry  + 

#  weapons  *  #hrs_2ndrds  *  consumption_2ndrds . 

Then  sum  all  of  these  for  total  diesel  fuel  required. 

IJote:  the  fuel  estimate  for  105mm  towed  howitzer  is  for  a  M35  vehicle 

operating  24  hours  *) 

begin 

case  newrecord. area  of 

korea  :  newrecord. consumption( . 5 .). general  estimate := 
round( taskforce( . 1 .) .quantity  *  3.0  *  6.4  + 

taskforce (. 1 .) .quantity  *  5.5  *  13.0  + 
taskforce (. 1 .). quantity  *  5.5  *  8.6  + 

taskforce (. 2 .). quantity  *  3.0  *  6.4  + 

taskforce (. 2 .). quantity  *  5.5  *  1S.0  + 
taskforce (. 2 .). quantity  *  5.5  *  3.6  + 

taskforce (. 3 .) .quantity  *  3.1  *  1.0  + 

taskforce (. 3 .) .quantity  *  5.5  *  S.6  + 

taskforce (. 3 .). quantity  *  5.5  *  10.3  +• 

taskforce ( .4 .) .quantity  *  3.0  *  1.0  + 

taskforce (. 4 .). quantity  *  5.5  K  3.6  + 

taskforce! .4. ) .quantity  *  5.5  *  3.9  + 

taskforce (. 5 .). quantity  *  4.1  *  1.0  + 

taskforce (. 5. ) .quantity  *  £.0  *  3.6  + 

taskforce (. 5 .). quantity  *  5.0  *  10. 3  + 

taskforce ' .6 .) .quantity  *  4.1  *  1.0  + 

taskforce  I . 6 .). quantity  *  5.0  x  10.0  + 

tasKfcrce (. 6 .}. quantity  ’  5.0  *  13.3  + 

taskforce! .7 .) .quantity  *24.0  K  0.2  + 
taskforce! . 3 .). quantity  *  4.1  *  1.0  + 


»T»  «Ln  ■tj-  iL-n  it  m..- 


taskforce! .8. ) 
taskforce(.8. ) 
taskforce (.9. ) 
taskforce ( . 9 . ) 

taskforce! .9. ) .quantity  *  6.0  *  14.3  + 
taskforce !.  10 .)  .'quantity  *  5.0  *  1.0  + 
tasitforce!  .10. )  .quantity  *  4.0  *  6.2  + 

tasicforcef  .10. )  .quantity  *  4.5  *  8.9  + 

taskforce (. 11 quantity  *  4.1  *  l.o  + 
taskforce ( .11 quantity  *  6.0  *  5.2  + 
taskforce! .11. ) .quantity  *  5.5  *  13.0  + 
taskforce! . 12. } .quantity  *  4.0  *  0.5  + 

taskforce! .12. ) .quantity  *  6.0  *  1.3  + 
taskforce !. 12 .). quantity  *  5.5  *  2.6  + 
taskforce !. 13 .). quantity  *  5.2  *  10.8  + 
taskforce ( .13. } .quantity  *  3.3  *  56.6  + 
taskforce! .13. ) .quantity  *  3.4  *  44.7  + 
taskforce! .14. } .quantity  *  4.6  *  2.0  + 
taskforce! .14. ) .quantity  *  6.5  *  28.1  + 
taskforce (. 14 .). quantity  *  4.6  *  35  7  ) • 
europe  :  newrecord. consumption! .5. f. general  estimate.- 
round(taskforce(.l.) .quantity  *  3.0  *  6.4  + 
taskforce! . 1 . ) .quantity  *  5.5  *  18.0  + 
taskforce! . 1 .) .quantity  *  5.5  *  8.6  + 
taskforce! .2. ) .quantity  *  3.0  *  6.4  + 
tasKforce! .2. ) .quantity  *  5.5  *  18.0  + 
taskforce! .2. ) .quantity  *  5.5  *  8.6  + 
tas_kforce(  .3. )  .quantity  *  3.0  *  i.n  + 


8. ) .quantity 

8.  ) .quantity 

9 .  ) .quantity 
9 . ) .quantity 
9 . ) .Quantity 


*  6.0  *  11.8  + 

*  5.5  *  16.1  + 

*  6.5  *  1.6  + 

*  3.6  *  12.5  + 


*  6.0  *  14.3  + 

*  5.0  *  l.Q  + 


, . 1 . ) .quantity 
, . 1 . ) . quantity 
, . 2. > . quantity 
.2. ) .quantity 
.2. ) .quantity 
taskforce ( . 3 . ) . quantity 
taskforce : . 3 . ) . quantity 
taskforce ! . 3 . ) . quantity 
taskforce! .4. ) .quantity 
taskforce ! .4 . ) . quantity 
taskforce! .4.5. quantity 
taskforce! . 5 . ) . quantity 
taskforce! . 5 . ) . quantity 
tasKforce ! . 5 . ) . quantity 
taskforce ! .6 . ) . quantity 
taskforce! .6 . ) .quantity 
taskforce! .6 . ) .quantity 
taskforce ! . 7 . ) . quantity 
taskforce ! . 8 . ) . quantity 
taskforce ! . 3 . ) . quantity 
taskforce ! .  8 . ) . quantity 
taskforce! .9. } .quantity 
taskforce ! . 9 . ) . quantity 
taskforce! .9.) . quantity 
taskforce!.iO.). quantity 
taskforce!. 10.). quant a ' 
taskforce! .10. ) .quanta 
taskforce! . 11 . ) .quanti 
taskforcef.il. ) .quanta 
taskforce! .11.) .quanti 
taskforce! . 12 . ) .quanti 
taskforce! .12. ) .quanti 
taskforce! .12. ) .quanti 
taskforce! .13. ) .quanti 
taskforce!. 13.). quanti 
taskforce ! . 13. ) . quanti 
taskforce (.14. ) .quanti 
taskforce! . 14. ) . quanti 
taskforce (.14.). quanti 
newrecord. consumption! . 5 . ) .qene 
round! taskforce(.l,). quantity 
taskforce! . 1 . ) .quantit 
taskforce!.!.). quantit 
taskforce ! . 2 . ) . quantit 
taskforce! .2. ) .quantit 
taskforce ( .2. ) . quantit 
taskforcet .3. ) .cuantit: 


*  5.5 

*  5.5 

*  3.0 


18.0  + 
8.6  + 
6.4  + 


*  5.5  *  18.0 


conus 


*  5.5 

*  3.0 

*  5.5 


8.6  + 
1.0  + 
3.6  + 


*  5.5  *  10.3  + 

*  3.0  *  1.0  + 

*  6 .  ^  *  n  e.  j. 


*  5.5  * 

*  5.5  * 

*  4.0  * 

*  5.0  * 


8.6  + 
8.9  + 
1.0  + 
8.6  + 


*  5.0  *  10.3  + 

*  4.0  *  1.0  + 

*  5.0  *  10.0  + 

*  5.0  *  13.3  + 
*24.0  *  n  * 

*  4.0  * 


0.2  + 
1.0  + 


*  6.0  *  11.3  + 

*  5.5  *  16.1  + 

*  4.0  *  1.6  + 

*  6.0  *  12.5  + 


5.5  * 
5.0  * 


quantity  *  5.0  * 
quantity  *  4.5  * 
quantity  *  4.0  * 
quantity  *  6.0  * 


14.3  + 
1.0  + 
6.2  + 
8.9  + 
1.0  + 
5.2  + 


taskforce! . 3 . ' 


quantity  *  5.5  *  13.0  + 
quantity  *  4.0  *  0,5  + 

quantity  *  6.0  *  1.3  + 

quantity  *  5.5  *  2.6  + 

quantity  *  5.0  *  10.8  + 
quantity  *  6.5  *  56,6  + 
quantity  *  5.0  *  44.7  + 
quantity  *  4.5  *  2.0  + 

quantity  *  6.5  *  28.1  + 
quantity  *  4.5  *  35.7  >■ 
) .general_estimate := 
antity  *  3.0  *  6.4  + 

quantity  *  5.5  *  18.0  + 
quantity  *  5.5  *  8,6  + 
quantity  *  3.0  *  6.4  + 
quantity  *  5.5  *  13.0  + 
quantity  *  5.5  *  8.6  + 

quantity  *  7 .0  *  1.0+ 

quantity  *  6.8  *  8.6  + 


taskforce ( .3 . ) .quantity  *  1.9  *  10.3  + 

taskforce! .4. } .quantity  *  3.0  *  1.0  + 

taskforce! .4. ) .quantity  *  5.5  *  8.6  + 

taskforce ! .4 .). quantity  *  5.5  *  8.9  + 

taskforce! . 5 .) .quantity  *  5.0  *  1.0  + 

taskforce !. 5 .) .quantity  *  3.8  *  8.6  + 

taskforce! .5. ) .quantity  *  1.6  *  10.3  + 

taskforce! .6. } .quantity  *  5.3  *  1.0  + 

taskforce! .6 .) .quantity  *  3.1  *  10.0  + 

taskforce! .6. } .quantity  *  4.3  *  13.3  + 

taskforce! .7 .) .quantity  *24.0  *  0.2  + 

taskforce! .8. ) .quantity  *  6.2  *  1.0  + 

taskforce (. 8 .). quantity  *  1.9  *  11.8  + 

taskforce! .8. > .quantity  *  2.9  *  16.1  + 

taskforce! .9. } .quantity  *  4.1  *  1.6  + 

taskforce! .9. } .quantity  *  1.9  *  12.5  + 

taskforce! .9. ) .quantity  *  4.1  *  14.3  + 

taskforce! . 10 .). quantity  *  5.0  *  1.0  + 

taskforce !. 10 .). quantity  *  4.0  *  6.2  + 

taskforce! .10. ) .quantity  *  4.5  *  8.9  + 

taskforce !. 11 .). quantity  *  2.4  *  1.0  + 

taskforce !. 11 .). quantity  *  7.2  *  5.2  + 

taskforce !. 11 .) .quantity  *  4.3  *  13.0  + 

taskforce (. 12 .}. quantity  *  4.0  *  0.5  + 

taskforce' . 12. ) .quantity  *  e.o  *  1.3  + 

taskforce! .12. ) .quantity  *  5.5  *  2.6  + 

taskforce !. 13 .). quantity  *  5.2  *  10.3  + 

taskforce! .13. ) .quantity  *  3.3  *  56.6  + 

taskforce (. 13 .}. quantity  *  3.4  *  44.7  + 

taskforce! .14. ) .quantity  *  4.2  *  2.0  + 

taskforce! .14. ) .quantity  *  8.5  *  23.1  + 

taskforce! .14. ) .quantity  *  2.9  *  35.7  ) 

end:  (*end  case  statement*) 
end;  (*end  procedure  diesel_fuel_estimate*' 


procedure  compu te_ammo ( cons_num , nuro_weapons , ha , hd , ma , md ,  la ,  Id integer )  ; 
begin 

case  newrecord. intensity  of 

hi  :case  newrecord. mission  of 

attack  :  newrecord. consumption! .cons_num. ) .general_estimate : 
num_weapons  *  ha; 

defend  :  newrecord. consumption! .cons_num. ) . general_estimate : 
num_weapons  *  hd; 

end; 

mid  :case  newrecord. mission  of 

attack  :  newrecord. consumption! .cons_num. ) .general_estimate : 
num_weapons  *  ma; 

defend  :  newrecord. consumption! .cons_num. ) .generai_estimate : 
num_weapons  *  md; 

end; 

low  :case  newrecord. mission  of 

attack  :  newrecord. consumption! .cons_num. ) .general_estimate : 
num_weapons  *  la; 

defend  :  newrecord. consumption! .cons_num. ) .generai_estimate : 
num_weapcns  *  Id; 

end 

end  (*end  case  statement*) 
end;  (*end  procedure  compute_ammo*) 


procedure  adjust_estimate ; 
const 

max_candidates  =  10;  (*max  number  of  candidate  analogies  *) 

type 

candidate_mfo  =  record 

index_num  :  integer;  !*index  into  history  array  of  records 
strengtn_pts  :  integer,-  !*measure  of  analogy  strength 
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used  :  boolean  (*used  in  adjustment  analogy  selection  *) 

end;(*end  record  candidate_info*) 

candidates  =  array  ( . 1 . .max_candidates . )  of  candidate_info; 


i,  (*loop  control  var  into  analogies 

adjustment_index,  (*loop  control  var  into  consumption 

num_candidates ,  (^number  of  analogous  records 

index  : integer;  (’'index  into  the  History  files 

analogy_candidate  :  candidates ; (^candidate  records  for  adjustment 


k 

k 

k 

k 

k 


function  analogous (index: integer)  :  boolean; 
begin 

with  history( .index. )  do 
begin 

if  (update  =  true)  and 

imoppcondition  =  newrecord.moppcondition)  and 
mission  =  newrecord. mission)  and 

intensity  =  newrecord. intensity)  and 

climate  =  newrecord. climate)  and 

area  =  newrecord. area)  and 

duration  =  newrecord. duration)  then  analogous :=  true 

else  analogous :=  false; 
end 

end;  (’'end  function  analogous*) 


procedure  adjust  (i:  integer); 
var 

sum_error  :  real;  (*sum  of  errors  in  analogies  used  *) 

sum  quality_pts  :  real;  (*sum  qlty  pts  in  analogies  used  *) 

anaIcgy_count  :  integer;  (*loop  control  variable  *) 

begin 

sum_error;=  0; 
sum_quality_pts :=0 ; 

for  analogy  count  :=  1  to  newrecord. analogy„info.num_analogies  do 
if  his tory( .newrecord. analogy  inf ©.analogies ( . analogy_count . ) . 

analogy_index. ) .consumption!  .i. ) . general_estimate  >  0  then 
begin 

sum_quality_pts :=  sum_quality_pts  + 

newrecord. analogy_info. analogies ( .analogy_count. ) .  quality__pts  ; 
sun_error:=  sum_error  + 

(newrecord. analogy_info . analogies ( . analogy_count . ) .qualityots 
*(  (history( . newrecord. analogy_mfo.anaiogies(  . analogy_count7) . 
analogy_index. ) . consumption . i. ) .actual  consumption  - 
history (. newrecord . analogy^info . analogies  f.  analogy_ccunt . ) . 

analogy_index. ) . consumption ( . i . ) . general_estimate )  / 
historv( .nev/record. analogy^info . analogies (. analogy _count . ) . 
anal*ogy_index. ) .  consumption ( .  i . ) .  general_estimate) ) 

end; 

newrecord. consumption( .i. ) .adjustments 

round  (  newrecord. consumption . i .). general_estimate  * 

(sum_,error  /  sum  quality_pts; ) 
end;  (*end  procedure  adjust*! 


function  compute_strength(af , vis , ter , update , entry .unit , opname , af_wt , 

vis_wt ,  ter^wt , upcfate_wt , cntry_wt ,  umt_wt , 
opname_wt, Index  :  integer ): integer ; 

var 

total_pts  :  integer;  (*total  number  of  strength  points  *) 

begin 

total_pts:=  0; 

if  (unit  =  1)  and  (newrecord. unit  =  history( . index. ) .unit) 
then  total  Dts:=  total_pts  +  unit_wt; 
if  (update  =  f)  and  (history( . index. ) .update_source  =  factual) 
then  total_pts:=  total_pts  +  update_wt; 
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t 


if  (entry  =  1)  and  (newrecord. country  =  history( . index. ). country) 
then  total_pts:=  total _pts  +  entry  wt; 
if  (ter  =  1)  and  (newrecord. terrain  =  Tiistory( . index. ). terrain) 
then  total  Dts:=  total_pts  +  ter_wt; 
if  (opname  =  f)  and  (newrecord. operation_name  =  history( . index. ) 

. operation_name)  then  total_pts:=  total_pts  +  opname  wt; 
if  (a£  =  1)  and  ( newrecord. AF_ground_spt  =  his tory (. index. ) 

.AF_ground_spt)  then  total^_pts:=  tofal_pts  +  af_wt; 
if  (vis  =  1)  and  (newrecord. visibility  =  history( . index. ) .visibility) 
then  total_ptS:=  total_pts  +  vis_wt; 
compute_strength:=  total_pts 
end;(*end  function  compute_strength*) 


function  pick_best_analogy : integer; 
var 

strongest_analogy ,  (*index  of  strongest  analogy  *) 

analogy _candidate_num,  (’'index  into  analogy  candidate  array  *} 

j,  (*loop  control  vanaEle  *} 

max_strength  :  integer;  (*maximium  analogy  strength  *) 

begin 

strongest_analogy:=  0; 
max_strength :=  -1; 
for  j :=  1  to  num_candidates  do 
begin 

if  ( analogy _candidate( .i .) .used  =  false)  and 

(anaIogy_candidate( o . ) .strength_pts  >  max_strength)  then 
begin 

max_strength  .•=  analogy_candidate ( .  j  . ) .  strength_pts ; 

strongest_ar.alogy  :=  analogy_candidate(  .3 . ) .  index_num; 
analogy_candidate_num :=  j 
end; 

end; 

analogy_candidate( . analogy _candidate_num. ) .used:=  true; 
pick_best_analocry :=  strongest  analogy; 
end;(*end  function  pick  best_analogy*) 


procedure  print_analogies ; 
var 

i  :  integer;  (*loop  control  variable  *) 

begin 
page  ; 

wr ite In; writeln; write In; write In; 

writelnC  ANALOGY  REASONING 1 ) ; 

writeln; write In : writeln; writeln; write In; 

writeln. 'All  of  the  available  data  on  past  operations  has  been  '); 
writeln( ' evaluated  to  identify  analogies  to  the  current  operation.'); 
writeln; 

writeln('A  previous  operation  is  considered  analogous  to  the'),- 
write (' current  operation  if  the  following  conditions  are  '); 
writeln( ' satisfied: ' ) ; 
writeln; 

writeln('  1.  The  historical  record  of  the  previous  operation  has1); 
v;riteln( '  been  updated  with  actual  consumption  data.'); 

writeln; 

writeln( '  2.  Both  operations  have  the  same  mission.'); 

writeln,- 

write('  3.  Both  operations  took  place  in  the  same  area  '); 

wrioein('of  the  world.1); 

writeln,- 

writelnC  4.  Both  operations  took  place  in  the  same  climate.'); 
writeln; 

writelnC  5.  Eoth  operations  took  place  under  the  same  chemical'); 
writelnC  defense  mission  oriented  protective  posture.'); 

writeln ; 

writein( '  6.  Both  operations  involved  the  same  combat  intensity.'); 

writeln; 


writeln!'  7.  Both  operations  were  first  day  engagements  or'); 
writeln! 1  succeeding  day  engagements  of  the  same  mission  type.1 

write In ; write In; write In; write In; write In; 

write('The  following  operations  are  analogous  under  this  '); 
writeln! ' definition. 1 ) ; 
write In; write In; write In; 

write( 1 - 1  )  ; 

writeln( 1 - 1 )  ; 

write ('  DATE  UNIT  MISSION  AREA  CLIMATE  MOPP  1 ); 

writeln( 1  INTENSITY  FIRST/SUCCEEDING  DAY1); 

write  (  1 . 1  )  ; 

writeln! 1 - 1  )  ; 

writeln; 

if  num_candidates  >  0  then 
begin 

for  i:=  1  to  file  counter  do 


if  analogous(i)  then 
begin 

write(history( .i. ) .date.  1  '); 

write (history! . i . ) -unit)  ; 
case  history! . i. ) .mission  of 
attack  :  write! 'ATTACK 
defend  :  write (' DEFEND  ’); 
end; 

case  history! . i .). area  of 

conus  :  write( 'CONUS  '); 
europe  :  write !' EUROPE  '); 
korea  :  write! 'KOREA 
end;  (*end  case  statement*) 
case  history!. i.) .climate  of 
hot  ;  write ('HOT 

temperate  :  write (' TEMPERATE  '}; 

cold  :  write! 'COLD  ') 

end;(*end  case  statement*) 

if  history! . i. ) .moppcondition  =  true  then 
write  C'  YES  r) 

else  write! 'MO  1  ) ; 

case  history! . i. ). intensity  of 
hi  :  write! 'HIGH  ' ) ; 

mid  :  write! 'MID  '}; 

low  :  write! 'LOW  '); 

end;  (*end  case  statement*) 
case  history! .i. ) .duration  of 

f irst_day  :  writeln! ' FIRST  DAY ') ; 

succeeding_day  :  writeln! ' SUCCEEDING  DAY'); 
end;(*end  case  statement*) 
writeln 


end 

end 

else  beain 

* writeln;writeln;vriteln; 

write! ‘There  are  no  analogous  operations  in  the  history  '); 
writeln! 'in  the  history  files.'; 
end  ; 

end;  !*end  procedure  print_analogies*) 


)  ; 


procedure  print_water_reasoning; 
var 

i  :  integer;  (*loop  control  variable  *) 

begin 
page  ; 

writeln  r writeln ,-writeln ; writeln  ; 

writeln!'  WATER  SUPPLY  REASONING’); 

writeln ;  writeln ;  writeln ;  write  In ;  writeln  ,• 

writeln( 'The  analogous  operations  are  evaluated  on  the  strenqth'); 
writeln( 'of  their  similarity  to  the  current  operation  in  these  N; 
writeln! '  areas  pertinent  to  water  supply  consumption.  Eac.n  cf  the')- 
writeln!  points' of  similarity  are  weighted  independently.  ): 


So 


writeln; 

writeln('The  weighting  of  each  item  is  in  parenthesis  below  the  1 ) 
writeln..1  item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT 1  )  ; 
writeln; 

writeln? 'Up  to  three  previous  operations  are  considered  in  the  '); 
writeln? ' adjustment  algorithm,  with  those  operations  with  the  '); 
writeln? 1  highest  number  of  quality  points  being  chosen  for  this  ') 
write In ( 1  purpose  .  1  )  ; 

writeln,- write  In;  write  In;  write  In;  writeln; 

writeln?1 - 1 

writeln'1  DATE  UNIT  COUNTRY  UPDATE  1 

writeln? 1  NAME  SOURCE  1 

writeln?1 - 1 

writeln 

writeln  1  (2)  (1)  1  )  ; 

writeln?  1 - 1  )  • 

writeln;writeln; 
for  i:=  1  to  r.um_candidates  do 
begin 

write (history ? . analogy_candidate ( . i . ) . index_num. ) . date , 1  1 ) 

write?history? .analogy_candidate? .i. ) . index_num. ) .unit, 1  1 ) ; 

if  history( . anaIogy_candidate( . l. ). index_num. ) .country  = 
newrecord. country  then  write? ‘YES  ') 

else  write ( 1  NO  1  )  ,- 

if  history? . analoay_candidate( . i . ) . index_num. ) ,update_source 
factual  then  writeln'  1  YES  1 ) 
else  writeln? 1  NO ' ) ,- 
writeln 


end:(xend  fcr  loco'' 

end;? 'end  procedure  pr int_water_reasoning*) 


procedure  print_subsistence_reasoning; 
var 

i  :  integer;  ('loop  control  variable 

becin 
page; 

writeln  .-writeln  ,-writelr.  ;wnteln  rwritelr. ; 

vntelr.  ?  '  SUBSISTENCE  SUPPLY  REASONING1); 

writeln  ,-vritelr.  ;wntelr.  rwriteln ; 


wntelnf'The  weighting  of  each  item  is  in  parenthesis  below  the  ') 
writeln?  '  item  name.  i.e.  (2.)  =  2  points  for  AE _GROUND_S'JPPCRT 1  )  ; 
writeln- 

writeln;,  ‘  Up  to  three  previous  operations  are  considered  in  the  '); 
wntelr.  ’  adjustment  algorithm,  with  those  operations  with  the  '); 
writeln  'highest  number  cf  quality  points  being  chosen  fcr  this  ) 


writeln' 'purpose . ' , 

wnte*n  ,-writelr.  writeln  ;writeln  writeln 


writeln? 1 
writeln? ' 

DATE 

TT**  -"T 

Will. 

UM I T 
:iame 

UPDATE 

SOURCE 

wr iteln ; 
writeln?  ‘ 

?  i  > 

(1) 

writeln?  . - . - . 

writeln -writeln - 
for  i:=  i  to  rrum_candidates  dc 
begin 

•  rite  history  .  ar.a*cgy_candidate  ? .  i  .  )  .  index_n'um.  ) . date , 1  1  ) 

wr i  te  his tory .  ar.al  tgv_ Candida te  .  l . )  .  index_.nu.rn .  )  . unit ,  1  1  ; 
if  wistcry .  .  ana. ogy  c ar.di date  .  .  i .  >  .  ir.cex_num. )  .unit  = 
r.ev: -ectrd.ur.it  ‘then  write  YES  '  ) 

®  1  3  6  v:  y  1 1  *  *  I  ^ 

if  history' . anal ogy_c an uidate ' . i . ; . mdex_num. ) . update_source 

M 


w 


WWWM»»WWM»"WW**»"'i"”ll"awvTVW,irl‘'rv’nn'" 


factual  then  writelnC  YES 1 ) 
else  writeln('  NO'); 
writeln 

end;;*end  for  loop*) 

end;(*end  procedure  print_subsistence  reasoning*) 


procedure  print_fuel_reasoning; 
var 

i  :  integer;  (*loop  control  variable 

begin 
page  ; 

wr ite In; writeln ; writeln; write In; write In; 
writelnC  FUEL  SUPPLY  REASONING’); 

wr iteln; writeln; write In; write  In; 

writelr.CThe  analogous  operations  are  evaluated  on  the  strength1); 
writelnC  cf  their  similarity  to  the  current  operation  in  those'); 
writelm 1  areas  pertinent  to  fuel  supply  consumption.  Each  of  the'); 
writeln( ' points  of  similarity  are  weighted  independently.'); 
writeln; 

writeim'The  weighting  of  each  item  is  in  parenthesis  below  the  '); 
writeln( ' item  name.  i.e.  (2)  =  2  points  for  AF  GROUND_SUPPORT ' ) ; 
writeln; 

writelm 'Up  to  three  previous  operations  are  considered  in  the  '); 
writelm  ' adjustment  algorithm,  with  those  operations  with  the  '); 
writelm  'highest  number  of  quality  points  being  chosen  for  this  '); 
writelnC  purpose . 1  ) ; 

writeln ;  writeln  ,-v;r  iteln;  writeln ;  writeln  ; 

write  ( 1 - ’),. 

writelnC - 1 ); 

write('  DATE  UNIT  AF  TERRAIN  '); 

writeln( 'UNIT  COUNTRY  OPERATION  UPDATE'); 
writeC  GRND_SPT  '); 

writeln( 'NAME  NAME  NAME  SOURCE'); 

write ( ' - '  )  ; 

writeln (  1 - 1  )  ; 

writeln; 

write(‘  (2)  (3)  '); 

writelnC  (1)  (1)  (1)  (2;  '); 

write  ( 1 - 1  )  ; 

write  In  ( ' - '); 

writeln;writeln; 
for  i:=  1  to  num_candidates  do 
begin 

writefhistoryf  .analogy_candidatef  .i. )  .index_num. )  .date,  '  '),- 

write (history ( . analogy_candidate ( . i . ) . index_num. ) .unit , '  ' ) ; 

if  his tory( .analogy _candidate( .i. ) .index_num. ) . AF_ground_spt  = 
newrecord.AF_ground_spt  then  write('YES  ') 

else  write ( '  NO  0 ; 

if  history( . analogy ,_candidate( . i .). index_num. ). terrain  = 
newrecord. terrain  then  write('YES  ') 

else _ wr ite ('  NO  ' ) ; 

if  history( . analogy  candidate (. i .). index_num. ) .unit  = 
newrecord. unit  then  writeC  YES  ') 
else  write ( '  NO  ' )  ; 

if  history( . analogy_candidate ( .i. ). index_num. ) .country  = 
newrecord. country  then  write('YES  ') 

else  wnte(  'NO  '  )  ; 

if  history( . analogy _candidate ( . i. ) . index_num. ) .operation_name 
=  newrecord. ooeration_name  then  write('  YES  ') 
else  write ('  NO*  '  )  ; 

if  nistory( .analogy  candidate (. i .). index  num. ) . update_source  = 
factual  then  writelnC  YES') 
else  writelnC  NO'); 
writeln 

end; '''end  for  Iocd*) 

enc;f*end  procedure  pr‘int_fuel_reasoning*) 
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(*loop  control  variable 


procedure  print_ammo_reasoning; 
var 

i  :  integer; 
begin 
page  ; 

wri  te  In;  write  In ;  wri  teln wti  teln ;  writeln  ; 
writelnf'  AMMUNITION  REASONING'); 

wr ite In; write In; write In; write In; 

writelnf ' The  analogous  operations  are  evaluated  on  the  strength'); 
writelnf 'of  their  similarity  to  the  current  operation  in  those1); 
writelnf ' areas  pertinent  to  ammo  supply  consumption.  Each  of  the  1 ) ; 
vritein( 'points  of  similarity  are  weignted  independently.'); 
writeln; 

writelnf 'The  weighting  of  each  item  is  in  parenthesis  below  the  '); 
writelnf 1  item  name.  i.e.  (3)  =  3  points  for  AF_GROUND_SUPPORT ' ) ; 
writeln; 

writelnf 'The  three  previous  operations  with  the  highest  number  of') 
writelnf ' quality  points  are  used  in  the  adjustment  algorithm.'); 
write  In,- write  In ;  write  In;  write  In;  write  In; 

write ( ' - '  ) ; 


writelnf 
writef ' 
writelnf 
writef ' 
writelnf 

— 

DATE 

UNIT 

NAME 

UNIT 

COUNTRY 

NAME 

AF 

OPERATION 
GRND  SPT 
NAME 

. 1  )  ; 

TERRAIN 
UPDATE : ) ; 

SOURCE ’ ) ; 

VISIBILITY  ' ) 

') 

writelnf 
writeln; 
writef 1 
writelnf 
write ( ' - 

-  ) 

(1) 

(1) 

ill 

;  ; 

(2)  x 
fl)  '); 

(1)  1  ) 

. ') 

writelnf  ' - '  )  ; 

writeln.-writeln; 

for  i:=  1  to  num_candidates  do 


beain 

writefhistoryf . analogy_candidate ( .i. ) .index_num. ) .date, '  '); 

write (historyf . analogy _candidatef . i . ) . index_num. ) .unit , '  1 ) ; 

if  historyf . analogy_candidate( .i. ) .index_num. ) .AF_qround_spt  = 
newrecord. AF_grcund  spt  then  writef'YES  ') 

else  write  (  '  NO  ; 

if  historyf .analogy _candidate( .i. ) .index_num. ) .terrain  = 
newrecord. terrain  then  writef'YES  ') 

else  write ( '  NO  ' ) ; 

if  history( . analogy  candidate (. i .). index  num. ) .visibility  = 
newrecord. visibility  then  writef'  YES  ') 
else  writef '  NO  '*) ; 

if  history  1 . analogy  candidate (. l .). mdex_num .). unit  = 
newrecord. unit  then  writef1  YES  ' ) 

else  write f '  NO  1  )  ; 

if  history)  .analogy_candidate(  .1. )  .mdex_num. )  .country  = 
newrecord. country  then  writef'YES  ') 

else  writef'  NO  '); 

if  historyf .  ar.alogv_candid3te  (  .  i .  )  .  mdex_r.um .  1  .  operaticn_name 
-  ne’./record. opera ticr._name  ti.er.  write;1  YES 
else  write  \  '  NO’  1  >  : 

if  history)  .  ar.alogy__canaidate  ;  .  i .  !  .  index_n'um. .  >  . update_source  = 
factual  then  -./rTtelr. 1  1  YES  ) 
else  writelnf  •  N">  . 

writeln 

end ;  (  *er.d  for  loop*) 

end  -  ,  'end  procedure  pr int_am.T.c_reascnmg* ^ 


procedure  pr ir.t_Gen_suppiies_reascr.mg  ■ 
v  a  r 

i  integer:  ‘loco  control  vanacle 


pa  ge  • 

v  s  _  t  e  1  r.  ■  w  r  1 1  e  1  r.  ■  w  r  1 1  e  1  r.  •  w  r  1 1  e  1  n  w »  :  t  e  1  r 


\ 


be 


writeln( 
writeln; 
writeln 
writeln 
writeln 
writeln 
writeln; 
writeln! 
writeln( 
writeln; 
writeln! 
writel n( 
writeln! 
writeln( 
writeln; 
write( 1  - 

writeln( ' - 

writer  DATE 
writeln( 'UNIT 
write ( ' 
writeln( 'NAME 

write ( 1 . 

writeln( ' - 

writeln; 
write( ' 
writeln( 


'  GENERAL  SUPFLY  REASONING'); 

writeln; write In; write In; 

'The  analogous  operations  are  evaluated  on  the  strength'); 

'of  their  similarity  to  the  current  operation  in  those'); 
'areas  pertinent  to  general  supply  consumption.  Each  of  the1) 
'points  of  similarity  are  weighted  independently.'); 

'The  weighting  of  each  item  is  in  parenthesis  below  the  '); 
'item  name.  i.e.  (2)  =  2  points  for  AF_GROUND_SUPPCRT 1 ) ; 

'Up  to  three  previous  operations  are  considered  in  the  '); 
'adjustment  algorithm,  with  those  operations  with  the  '); 
'highest  number  of  quality  points  being  chosen  for  this  '); 
'purpose.'); 

wr iteln; writeln ; writeln ; writeln; 


UNIT 

COUNTRY 

NAME 


AF 

OPERATION 
GRND  S?T 
NAME 


. '  ) 

TERRAIN 
UPDATE ’ ) 

SOURCE' ) 


VISIBILITY 


;ri 


TP  1  I 


(1) 


(1) 


if! 


<iV 


) 


) ; 


(l) 


)  ; 


writeln( 1 - 

wr iteln ; write  In; 
for  i:=  1  to  num_candidates  do 
begin 

write (history ( .analogy  ..candidate! . i. ) . index_num 
write 'history! . analogy_candidate( . i. ). index_num 
if  his  ter  y( .  ana  logy  _candidate  (  .  i. ) .  index_r.um. )  .  AF_qround_ 


i.  )  .date,  1 
i. )  .unit,  ' 


r.ewrecord. AF_ground  spt  then  write('YES 


'0 


) ; 
)? 
) ; 
) ; 

) ; 

)? 


)?! 

spt  = 


index_num. ). terrain  = 
YES 


) 


;lse  writer  1  NO  '  '1  ; 

if  history! .analogy_candidate( . i.  ) 
newrecord. terrain  then  write(" 
else  write!’  NO  '); 

if  history (. analogy  candidate! . i. ). index_num. ) .visibility 
newrecord. visibility  then  writer’  YES  ') 
else  write!  NO  '); 

if  history! .analogy  candidate (. i .). index_num .). unit  = 


) 


) . index_num . 
'YES 


) . country  = 


YES 


newrecord. unit  then  wnts('  YES 
else  write ( '  NO  '  )  ; 

if  history! . analogy_candidate ( . i , 
newrecord. country  then  write( 
else  write!  'NO  *  '  )  : 

if  history!  .  analogy_car.didate  (  .  i .  )  .  index_num. operation_name 
=  r.ewrecord. cperation_r.ame  then  write!' 
else  write! '  No  1  ) ; 
if  history!. analogy^candidate ( . l . } 
factual  then  wr fteim  YES1' 

else  writeln! '  NO  ) ; 
writeln 

end; (*end  for  loop*' 

*er.d  procedure  pr  int_Gen_supolies_reasomng*  i 


) 


.  mdex_num .  )  .  upbate_source  = 


gin  ( 'procedure  adgust_estimate* ) 
ne  wrecord.  ar.aIogy_in£o  .r.um_ar.aicgies  :=  0  ; 
index  :*  file  counter- 


num  rjr,.; 


;  a  t  e  S  :  =  U  : 

■  candidates  max  candidates)  and  (index  ■  C '  do 


it  analogous  index  i  tnen 


rar.d:  dates  :  *  r.urr_c  sr.di  dates  *  a 


i»W! 


! .  a  r.  i  a  c. 


-._anaAogies  • 


;  }■»  0 


V  J 


newrecord. analogy_info . num_analogi.es  :  = 
newrecord. analogy_info .num_analogies  +  1; 
analogy_candidate ( . num_candidates . ) . mdex_num :=  index,- 
end; 

index :=  index  -1; 
end;(*end  while  statement*) 
print_analoqies ; 

if  newrecord. analogy_info.num_analogies  >  0  then 
begin 

for  i:=  1  to  num_candidates  do 
begin 

analogy_candidate( .i. ) . strength_pts := 

compute_strength(0 , 0,0, 1,1, 0,0, 0,0, 0,1, 1,0,0, 

analogvcandidate ( . i . ) . index_num) ; 

analogy_candidate( . i. ) .used:=  false 
end; 

for  i:=  1  to  newrecord. analogy_info.num  analogies  do 
begin 

newrecord. analogy  info. analogies ( . i. ) . analogy_index:= 
pick_best  analogy,- 

newrecord. ana"logy_info .analogies ( .  i. )  .date  :  = 

history( . newrecord. analogy_info. analogies ( .i. ) 
.analogy_index. )  .date,- 

newrecord. analogy_info . analogies( . i . ) .unit := 

history( . newrecord. analogy_info. analogies ( .i. ) 
.analogy_index. ) .unit; 

newrecord. analogy_info. analogies ( . i. ) .quality  ots := 
compute_strength{0 ,0, 0 ,  1, 1,0, 0,0, 0,01,1, (7,0, 

newrecord. analoay_info. analogies (. i. ) . analogy_index) 

end; 

print  water  reasoning; 

ad just (1); 

for  i:=  1  to  num_candidates  do 
begin 

analogy_candidate( . i . ) . strength_pts := 

compute_s trength( 0 ,0,0, 1,0, 1,0, 0,0, 0,1, 0,1,0, 

analogy_candidate ( .  i . ) .  index_num)  ,- 

analogy_candidate( . i. ) .used:=  false 
end; 

for  i:=  1  to  newrecord. analogy_info.num_analogies  do 
begin 

newrecord. analogy  info. analogies( .i. ) . analogy_index:= 
pick_best  analogy,- 

newrecord. analogy_info . analogies ( . i. ) .date := 

history( . newrecord. analogy_info. analogies ( .i. ) 
•analogy_index. ) . date ; 

newrecord. analogy_info.analogies( .i. ) .unit:= 

hxstory( . newrecord. analogy_info. analogies ( .i. ) 
.analogy_index.).unit,- 

newrecord. ana logy_info. analogies ( . i . ) . quality_pts := 
cor.ipute_strer.gth(0 , 0,0, 1,0, 1,0, 0,0,0. 1,0, 1,0, 

newrecord. ar.alogy_info. analogies!  .i. )  .analogy  index) 

end,- 

print_subsistence_reasoning,- 

adjust (2)  ,- 

adjust (3 )  ,- 

for  i:=  1  to  num_candidates  do 
begin 

analogy_candidate( . i . ) . strength_pts := 

compute_strength(l , 1,1, 1,1, 1,1, 2, 1,2, 2, 1,1,1, 

anaiogy_candidate ( .  i. )  .index_num)  ,- 

analogy_candidate( . i. ) .used:=  false 
end; 

for  i:=  1  to  newrecord. analogy_info .num_analogies  do 
begin 

newrecord. analogy  info. analogies! .i. ) .ana!ogy_index:= 
pick_best  ana  Fogy; 

newrecord.  ana"l^gy_info .  analogies  (  .i. )  .date  :  = 

history! .newrecord. analogy_info. analogies! .i. ) 

.  ana  lo<r/_mcex.  )  .date,- 


newrecord. analogy.info. analogies! .i. ) .unit:= 

history( .newrecord. analogy.info. analogies( .i. ) 

. analogy.index . ) . unit ; 

newrecord. analogy_info . analogies ( . i . ) . quality_pts := 
compute_strength(l , 1,1,1, 1,1, 1,2,1, 2. 2, 1,1,1, 

newrecord. analogy.info . analogies ( . i . ) . analogy.index) 

end; 

print_Gen_supplies_reasoning; 

adjust(4) ; 

adjust (6) ; 

adjusts  19) ; 

adjust! 20) ; 

adjust (21 ) ; 

for  i:=  1  to  num_candidates  do 
begin 

analogy_candidate( . i . ) . strength_pts := 

compute_strength(l ,0,1, 1,1, 1,1, 2, 0,3, 1,1, 1,1, 

analogy_candidate( . i. ) . index_num) ; 

analogy_car.didate( .  i. )  .used:=  false 
end; 

for  i:=  1  to  newrecord. analogy.info. num.analogies  do 
begin 

newrecord. analogy  info . analogies ( . i. ) . analogy.index := 
pickjoest  analogy ; 

newrecord. analogy.info . analogies ( . i. ) . date := 

history( .newrecord. analogy_info. analogies ( .i. ) 

. analogy_index. ) . date ; 

newrecord. analogy_info. analogies ( .i. ) .unit:= 

history( . newrecord. analogy_info. analogies ( . i. ) 

. analogy_index . ) . unit ; 

newrecord. analogv_info. analogies ( . i. ) . quality_pts := 
compute_strength(l ,0,1,11,1,1 ,2,0,3. 1 , 1 , 1 , 1 , 

newrecord. analogy_info . analogies ( . i . ) . analogy_index) 

end; 

print_fuel_reasoning,- 
adjust(5) ; 

for  i:=  1  to  num_candidates  do 
begin 

analogy .candidate ( . i . ) . strength _pts : = 

compute_strength(l ,1,1, 1,1, 1,1, 3, 1,2, 1,1, 1,1, 

analogy. candidate ( . i. ) . index.num) ; 

analogy .Candida te( .i. ) .used:=  false 
end ; 

for  i:=  1  to  newrecord. analogy.info.num.analogies  do 
begin 

newrecord. analogy  info. analogies ( . i. ) .analogy.index:= 
pick  best  analogy; 

newrecord. analogy.info . analogies ( . i. ) . date := 

history( . newrecord. analcgy.info. analogies ( .i. ) 

. analogy.index . ) . date ; 

newrecord. analogy.info . ana logies( . i. ) .unit:= 

history{ .newrecord. analogy.info. analogies ( . i. ) 

. analogy.index . ) . unit ; 

newrecord. analogy.info . analogies ( . i . ) .quality_pts := 
compute_strength( 1,1, 1,1, 1,1, 1,3, 1,2. 1,1, 1,1, 

newrecord. analogy.info. analogies (. i. ) . analogy.index) 

end; 

print.ammo.reasoning; 
ad just (7 ) ; 
adjust (8) ; 
adjust (9 ) : 
adjust (19 ) ; 
adjust (11) ; 
adjust(l2 ) ; 
adjust! 13 ) ; 
adjust! 14) ; 
adjust!  15 ) 
adjust(l6 ) ; 
adjust! 17 ) ; 
adjust(l3) 


end 

else  for  adjustment_index:=  1  to  num_supply_items  do 

newrecord. consumption ( . adjustment^ Index. ) .adjustments :=  0; 

enJ*;  ^(*’end  procedure  adjust_estimate*) 


begin  (*begin  procedure  create_estimate*) 
water_estimate ; 
class_I_estimate ; 

compute_general_supplies!  4,  3.67); 
compute_general_supplies (  6,  4.00); 
compute_general_supplies ( 19 , 15 . 00 ) ; 
compute_general_supplies(20 ,  1.22); 
compute  general^subplies^l ,  2.50); 
diesei_Tuel  estimate; 
if  newrecor3. duration  =  first_day  then 
begin 

compute  ammo(  7 , taskforce ( . 13 . ) . quant ity+taskf or ce ( . 14. ) .quantity , 

52,62,29,35,10,12) 

compute_ammo(  8, taskforce! .15 . ) .quantity ,7 ,9, 4, 6, 3, 4) ; 
compute_ammo(  9 , taskforce (. 16 . ) .quantity ,2 , 3 , 1 , 2 , 1 , l) ; 
compute_ammo( 10 , taskforce { .  7 . ) .quantity , 376 ,423 ,244 ,275,132,148); 
compute_ammo( 11 , taskforce ( .  8 . ) .quantity , 374, 520 , 229,318, 115,160); 
comoute_ammo( 12 , taskforce ( .  9 . ) .quantity , 288 ,395,136,255,  34,115); 
compute_ammo(13 , taskforce ( .11 . ) .quantity ,3984 ,4800 ,2241,2700,747, 

900); 

compute_ammo! 14, taskforce! .  5 .) .quantity ,  97,116,54,65,18,22); 
compute_ammo( 15 , taskforce! .  6 . ) .quantity , 109 ,130,61,73,20,24); 
compute_ammo( 16 , taskforce ( . 17 . ) . quantity , 175 , 210 , 99,118,33,39); 
compute_ammo!17 , taskforce! . 18. ) .quantity ,433 ,519,243,292,61,97); 
compute_ammo{l8 , taskforce ( . 19 . ) .quantity ,99 ,118,56,67,19,22) 
end 

else  begin 

compute_ammo(  7 , taskforce (. 13 . ) .quantity+taskforce( .14. ) .quantitv, 

28,38,16,21,5,7'); 

compute_ammo!  8 , taskforce! . 15 . ) . quantity ,8 , 10,5,7,3,4) ; 
compute_ammo!  9 , taskforce ! . 16 . ) .quantity , 3 , 4 , 2,2,1, 10) ; 
compute_ammo! 10 , taskforce! .  7 . ) .quantity, 381, 467, 2 48, o04, 123, 163) ; 
conpute_ammo! 11 , taskforce! .  8 . ) . quantity , 374 ,530,229,324,120,163) ; 
ccmpute_ammo! 12 , taskforce ! .  9 . ) . quantitv , 231 , 363 ,181,235,32,106) ; 
compute_ammo(13 , taskforce ( . 11 . ) .quantity , 2151 , 2380 ,1210,1620,403, 

,  v  540); 

compute_ammo ! 14 , taskforce! .  5. ) .quantity,  53,70,30,40,10,13); 
compute_anmo(15 , taskforce  t .  6 . ) .quantity, 59,79,33,45,11,15); 
compute_ammo( 16 , taskforce! . 17 . ) .quantity , 96 ,127,54.72,18,24) ; 
compute_ammo(17 , taskforce! . 18. ) .quantity ,236,314,133,177,44,59); 
compute_ammo(18 , taskforce(.19.) .quantity, 54,72,30,40,10,13) 
end; 

adjust_sstimate ; 

for  i:=  1  to  num_supply_items  do 

newrecord. consumption! . i . ) . final_estimate := 
newrecord. consumption! . i . ) . general_estimate  + 
newrecord. consumption! • i ■ ) • adjustments ; 
file_counter :=  file_ccunter  +  1; 
history! . file_counter . ) :=  newrecord 
end;  (*end  procedure  create_estimatex) 


procedure  pnnt_estimate  ; 
var 

i  :  integer;  (*index  variable  for  printing  consumption  array*) 

begin 

page .-wriceln.-vriteln; 

write!  1  '),- 

wr lte In ( 'AUTOMATED  LOGISTICS  PLAN'); 
write  In; write In; write In; 

vritelni,  '  LATE  '  .newrecord. date)  ; 

■write In ^  'UNIT  1  .newrecord. unit)  ; 


BUBUffWimUl  WWUPWWMBWWWWWwruirvrMinHni 


case  newrecord. tf  type  of 
armor  :  writeln; ' TASK 
writeln  'TASK 
writeln ( 1  TASK 


FORCE 

FORCE 

FORCE 


mech 
inf 

end;  (*end  case  statement*) 
case  nev/record.  tf size  of 

bn  :  writeln; ‘TASK  FORCE 

bde  :  writeln; 'TASK  FORCE 

end; 

case  r.ewrecord. mission  of 


TYPE 

TYPE 

TYPE 


ARMOR 1 )  ; 
MECHANIZED 1 
INFANTRY' ) ; 


); 


SIZE 

SIZE 


BATTALION’ ) 
5RIGADE ‘ ) ; 


attack  writeln 
defend  :  writeln 

end; 

case  newrecord 
first_day 


'MISSION 

'MISSION 


ATTACK 

DEFEND 


duration  of 

writeln ( 


succeeding_day  :  writeln; 
end;(*end  case  statement*) 
case  newrecord. intensity  of 


'DURATION 

'DURATION 


FIRST  DAY’ ) ; 
SUCCEEDING  DAY' 


hi 
mid 
low 

end;  (*end  case  statement*) 
writeln( 'OPERATION  NAME 
case  newrecord. area  o' 


wnteln( 
writeln! 
writeln { 


COMBAT 

COMBAT 

COMBAT 


INTENSITY 

INTENSITY 

INTENSITY 


HIGH1 ) 
MID ‘ )  ; 
LOW 1 ) ; 


, newrecord. operation_name) ; 


writeln; 
writeln! 
writeln ( 


AREA 

AF.EA 

AREA 


conus 
eurcpe 
korea 

end;  (*end  case  statement*) 
writeln; ' COUNTRY 
case  newrecord. climate  of 
hot  :  writeln( ’ 

temperate  :  writeln!1 
cold  :  writeln; 'CLIMATE 

end;! "end  case  statement*) 
case  newrecord. terrain  of 


CONUS ' ) : 
EUROPE' ) ; 
KOREA  1 ) 


.newrecord. country) ; 


CLIMATE 

CLIMATE 


HOT'  ) 
TEMPERATE 

COLE  1  ) 


TE’) 


wr 

wri 


itelr. !  '  T 
iteln; ' T 


TERRAIN 

ERRAIN 


writeln; ’TERRAIN 
writelr.;  'TERRAIN 


open 
woods 
built_up 
mountains 

end;  C'er.d  case  statement* 
case  newrecord. visibility  of 
ocod 
fair 


OPEN '  )  : 

WOODS  1  )  ; 
BUILT  UP' ); 
MOUNTAINS  '  )  ; 


poor 

end:  (*end  case 
if  newrecord. AF 


:  writeln; 'VISIEILTY 

GOOD ’ ) ; 

:  writeln;  VISIEILTY 

FAIR'  ; 

:  writeln; 'VISIBILITY 

POOR ' ) ; 

statement* ) 

ground  spt  =  true  then 
Sf  GROUflD  SUPPORT 
else  writeln! 1 AF  GROUND  SUPPORT 
if  newr icord.mcppcondition  =  true 
MOPP  LEVEL  3/4 


writeln! 


YES '  ) 

NO '  !  ; 

then 

YES  '  ) 

NO '  )  ; 

' , newr ecord. per sonne l_strength :4 ) 
b  c  b  then 

b_c  b ' ) 
c_c_E' ) ; 


0  then 


vrit*.n( 

else  writelr.; 'MOPP  LEVEL  3/4 
writeln! 'FERSONHEL  STRENGTH 
if  r.ewrecord.  ration_pclicy  = 
writeln  RATION  POLICY 
else  writelr.;  RATION  POLICY 
writeln.-wntelr.; 

write! 'HISTORICAL  DATA  AVAILABLE 
if  r.ewrecord .  anaiogy_m£o  .  num_ analogies 
begin 

writeln! 'YES' ) ; 
writeln : 

write!'  DATE  '); 

for  i:=  1  to  newrecord. analogy  info. num_analoqies  do 
write  (newrecord.  analcgy_ir.ro .  analogies  ( .  i .  )  .  date  , 
writeln: 
write,'  UNIT 

for  is*  1  tc  newrecord .  analogy  ^.mfo .  num_analogies  co 
write; newrecord. ana  logy_ir.ro  . analogies' . l .) .unit , 
writeln: 
end 


xx 


else  writeln( 1  NO ' ) ; 
writeln,-writeln,- 

wri t6 ( 1  1 )  / 

writelnC LOGISTICS  ESTIMATE'); 
write In; write In; 

write ('  SUPPLY  ITEM  GENERAL  E ST.  ADJUSTMENTS'); 

writelnC  FINAL  EST.1); 

writeln;writeln; 

for  i:=  1  to  num_supply_items  do 
begin 

write (newrecord. consumption! . i. ) . supply_item) ,• 
write C  1 ) ; 

write(newrecord. consumption!  .i. )  .general_estimate-.6)  ; 
write ( 1  1 ) ; 

write (newrecord. consumption!  .i. )  .adjustments-.6)  ; 
write ( '  1 ) ; 

wrice(newrecord. consumption! . i . ) . final  estimate :6 )  ; 
write ( 1  1 ) ; 

writeln(newrecord.consumption( . i. ) .unit_of_measure) ; 
write In 

end;  (*end  printing  out  consumption  array*) 
end;  (*ena  procedure  pnntestimate*) 

begin  (*begin  log_estimate*) 
build_task_force ; 
create_scenano ; 
create_estimate ; 
print_estimate ,- 
page 

end;  (*end  procedure  log_estimate*) 


^  •k'k'k-k'k-k'k'k-k-k'k'k'k-A'k-k-k-k’k'^’k'k  A-k-k'k-kJr-k’k'k'k  -kirk  A*  Ax*  ********************  A  **  ***7*-** 

MODULE  HISTORY  UPDATE 

**********  **7:*  *******  Ayr***********  **  ) 

procedure  history_update; 
var 

oprecord; 
integer ; 
boolean ; 
char  ; 


!*record  to  be  updated  *) 
<*index  into  the  historical  files  *' 
!*true  if  record  found  in  history  files  *, 
(*user  response  to  continue  with  program*; 


update_record 
i 

found 

continue_char 

procedure  readunit; 
const 

blanks  =  1 
var 

ok  :  boolean; 

answer  :  char; 
unitname  :  unitstring; 
begin 

ok:=  false; 
repeat 

writelnC Enter  name  of  unit  which  conducted  the  operation' 

writelnC For  example-  l/33rd  '); 

readln(unitname ) ; 

strconcat(unitname , blanks) ; 

writeln; 

writeln('The  name  of  the  unit  was  unitname); 
writeln ; write In ; 

writelnC Is  this  the  correct  unit  name?'); 

writelnC 1  Enter  the  number  corresponding  to  your  answer.'); 

writelnC  1  -  yes,  unit  name  is  correct 

writeln!1  2  -  no,  unit  name  is  incorrect'); 

readln( answer ) ; 

if  answer  =  '1'  then 


begin 


update_record.umt  :=  unitname  ,- 
ok : =  true 


ena 
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until  ok  =  true; 
writeln;  ,  .  .. 

end;  (*end  procedure  readunit*) 

procedure  readdate; 
var 

ok  :  boolean ; 

newdate  :  datestring; 
answer  :  char; 
begin 

ok-.=  false; 

t* £  3  t 

writel.n( '  Enter  the  date  on  which  the  operation  took  place.'),- 
vriteln( ' Use  the  form  dd/mm/yy'); 
reading newdate) ,- 

write In;  ,  ,  ,  ^  . 

writeln('The  date  of  the  operation  was  newdate); 
writeln; 

wntelnf'Is  this  the  correct  date?'),- 

wnteln( 'Enter  the  number  corresponding  to  your  answer.'),- 
writeln( 1  1  -  yes,  date  is  correct  '); 

writeln('  2  -  no,  date  is  incorrect'); 

readln (answer) ; 
if  answer  =  '1'  then 
begin 

UDdate_record. date  :=  newdate,- 
ok-.=  true 
end 

until  ok  =  true,- 
writeln,- 

end;  (rend  procedure  readdate*) 

procedure  reachission; 
var 

ok  :  boolean; 
mission_code  :  char; 

beoin  , .  ,  .  ,  N 

vriteln( ' Enter  the  number  corresponding  to  the  correct  mission.  ) 
writeln ( '  1  -  attack  '); 

vntelr.C  2  -  defend  ' )  ; 

ok:=  false,- 

repeat  . 

readln(mission_coae ) ; 
if  missior._coae  =  '1'  then 
cecm 

update_record. mission  :=  attack; 
ck:=  true 
end 

else  if  mission_code  =  '2'  then 
begin  ... 

update_record.  mis  sion  .-=  defend; 
ok : =  true 

end  ,  . 

else  writeln('you  have  made  an  error  in  input,  try  again.  )  ,- 
until  ok  =  true,- 
writeln; 

end;  ^er.d  procedure  readnission* ) 


procedure  readupdate_source  ,- 
var 

ck  ;  boolean,- 

answer  char; 

te  write In ( 'What  was  the  source  of  the  information  for  this  update'); 
writeln;  _  .. 

writeln!  ' Enter  the  correct  r.umoer  for  your  response' ),- 
wnteln('  1  -  estimate'),- 
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•  4  *.*  •  <1  «»|  til  *,< 


l  4^-1  |*{  m2A  tlA  i!A  >1 


writelnf 1  2  -  factual  information  1 ) ; 

ok:=  false; 
repeat  ■ 

re adln( answer) ; 
if  answer  =  1 1 1  then 
begin 

history( . i. ) . update_source :=  estimate; 
ok:=  true 
end 

else  if  answer  =  '2'  then 
beain 

history(  .i. )  ,u.pdate_source :=  factual; 
ok:=  true 
end 

else  writeln('You  have  made  an  error  in  input,  try  again.'),- 
until  ok  =  true; 
write  In;  write  In,- write  In 
end;  (*end  procedure  readupdate_source*) 

procedure  input_consumption; 
var 

j ,  (*index  variable  into  the  consumption  array 

amount  :  integer;  (*the  user  provided  consumption  figures 
begin 

with  history (.i.)  do 
begin 

writelnf ' Enter  the  actual  consumption  for  each  of  the  supply 
writelnt  ' items  that  follow.  If  no  actual  consumption  ficures 
writeln('are  available,  enter  0  .'); 
writeln;writeln; 

for  j  :=  1  to  num_supply_i terns  do 
begin 

writef 'Enter  the  number  of  1 ) ; 

write ( consumption ( . j . ) . suoply_item, '  ' ) ; 

writein(consumption( . j . ) .unit  of_measure , '  '); 

reading amount) 

writeln(amount) 

consumption ( . j . ) . actual_consumption:=  amount; 
writeln 
end; 

update :=  true 
end  ‘ 

end;  (’'end  procedure  input_consumption*) 
begin  (*begin  history_update*) 

writelnf 'You  will  now  be  asked  information  about  the  operation.') 

writelnf 'for  which  you  have  actual  consumption  data.  '  )  ,-writeln; 

readun.it; 

readdate ; 

readmission; 

found:=  false,- 

i:=  1; 

while  (not  found)  and  (not  (i  >  f ile_counter ) )  do 
with  update_record  do 
begin 

if  (history( . i. ) .unit  =  unit)  and 
(history( . i. ) .date  =  date)  and 
(history( .i. ) .mission  =  mission) 
then  begin 

found  :=  true,- 
readupdate_source ; 
input_consumption 
end 

else  i:=  i+  1 
end; 

if  found  then  begin 
writeln, -writeln; 


5w5?w!ww5!il,w 


*  X 


mm  ihwuhwiii  mainwiiiiyiwiiw 


wwmuw*  J^wuTCTmnwv*ireir»vnir*y*>rwuf7mnj^>Mi  -v  -v  ^ 


writeln('The  record  has  been  updated  .') 
end 
else 

begin 

writeln( 1  There  is  no  record  in  the  historical  file  which  1 ) • 
writeln( ' matches  the  unit, date,  and  mission  you  have  specified'); 
writeln( ' Check  your  input  and  try  again  ') 
end; 

writeln( ' Enter  c  to  continue'); 
repeat 

readln(continue_char) 
until  continue_char  =  'c'; 


enc?;  ^(*end  procedure  history_update*) 


(  ************************ ****************************** *************** * 

MODULE  DELETE  RECORD 

*** ******************* ******** *********£*************** ******** ** *****  J 

procedure  delete_record; 
var 

delete_record  :  oprecord; 
i  :  integer; 

found  :  boolean; 

continue_char  :  char; 

procedure  reaaunit; 
const 

blanks  =  '  1  ; 

var 

ok  :  boolean; 

answer  :  char; 
unitname  :  unitstring; 
begin 

ck:=  false; 
repeat 

writeln^ ' Enter  name  of  unit  which  conducted  the  operation'); 
writeln('For  example-  l/33rd  '); 
readln(unitname) ; 
strconcat(unitname .blanks) ; 
write  In; 

writeln('The  name  of  the  unit  was  ',  unitname); 
writeln;writeln; 

writeln('Is  this  the  correct  unit  name?'); 
writeln( ' Enter  the  number  corresponding  to  your  answer.'); 
writeln( '  1  -  yes,  unit  name  is  correct  '); 

vriteln('  2  -  no,  unit  name  is  incorrect'); 

readlnfanswer ) ; 
if  answer  =  '1'  then 
begin 

delete_record.unit :=  unitname ; 
ok:=  true 
end 

until  ok  =  true; 
writeln 

end;  (*end  procedure  readunit*) 

procedure  readdate,- 
var 

ok  :  boolean; 

newaate  :  datestring; 
answer  :  char; 
begin 

ok:=  false; 
repeat 

wnteln( '  Enter  the  date  on  which  the  operation  took  place.'); 
writelr.(  ' Use  the  form  dd/mm/yy'); 
reaaln(newdate ) ; 
writeln; 


!*name  of  record  to  be  deleted  * 
*inaex  into  the  historical  files  * 
*true  if  record  found  in  history  files  * 
*user  response  to  continue  program  * 


92 


writeln('The  date  of  the  operation  was  newdate); 
writeln; 

writeln; 'Is  this  the  correct  date?'); 

writeln; 'Enter  the  number  corresponding  to  your  answer.'),- 
writeln;'  1  -  yes,  date  is  correct  '  ) ,- 

writeln;'  2  -  no,  date  is  incorrect'),- 

re adln( answer) ; 
if  answer  =  '1'  then 
begin 

dele te_record. date :=  newdate; 
ok:=  true 
end 

until  ok  =  true; 
writeln 

end;  (’'end  procedure  readdate*) 


procedure  readmission; 
var 

ok  :  boolean; 
mission_code  :  char,- 
begin 

ok:=  false,- 
repeat 

writeln( 'Enter  the  number  corresponding  to  the  correct  mission.') 
writeln;'  1  -  attack 

writeln; 1  2  -  defend 

readln(mission_code) ; 
if  mission_code  =  then 
begin 

delete_record. mission  ;=  attack; 
ok:=  true 
end 

else  if  mission_code  =  '2'  then 
beqin 

'delete_record. mission  ;=  defend ; 
ok:=  true 

end  .  . 

else  writeln('you  have  made  an  error  in  input,  try  again.1); 
until  ok  =  true,- 
writeln 

end;  (*end  procedure  readmission*) 


orocedure  deletion,- 

var 

j  :  integer;  (*index  variable  into  the  history  files*) 

begin 

for  j  :=  i  to  (file  counter  -1)  do 
history (. j .) := "history ( . j  +  1 . )  ; 
f ile_counter :=  file_cour.ter  -1; 
writeln;writeln; 

writeln('The  record  was  found  and  deleted.') 
end;  ;*end  procedure  deletion*) 


begin  (*begin  module  delete_record*) 

writeln('You  will  now  be  asked  information  about  the  operation.'); 

writeln; ' that  you  want  deleted.'); 

writeln; 

readunit ; 

readdate ; 

readr.issior.; 

found:=  false; 

while' (not  found)  and  (not  (i  >  file_counter) )  do 
with  delete_record  do 
begin 

if  (history(.i. ) .unit 
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=  unit)  and 


(history( . i . ) . date  =  date)  and 
(history (. 1 . ' .mission  =  mission) 
then  begin 

found :=  true; 
deletion 
end 

else  i:=  i+  1 
end; 

if  (not  found)  then 
begin 

vriteln( 1  There  is  no  record  in  the  historical  f 
writelm  1  matches  the  unit, date,  and  mission  you 
vnteln(  ■  Check  your  input  and  try  again 
end; 

writein, •writeln;writeln;write( 1  >  • 

writelr.(  1  Enter  c  to  continue  ); 

repeat 

reading  con tinue_char ) 
until  contir.je_char  =  c1  ; 


pace 

enc;  *i,*end  procedure  delete_record* ) 


le  winch 
have  spec 


ed 


procedure  prir.t_hi story ; 


MODULE  PRINT  ..HISTORY 

if?  +  *^***»>  ^  *  *  ▼  ■*■*■*•  *  *  A  *  *  ^  *  i 


l  :  integer; 
begin 

for  j :=  1  to  file_counter  do 
begin 

writein rwriteln ; 
write ( 1 

writeln( 'HISTORICAL  RECORD' ); 
writein  •  write  Ir. ;  write  In  : 
wnteln '  ’DATE 
write  Ir.  t  '  UNIT 

case  history; . j .). tf  type  of 
ar-cr  .•  writelnT’  TASK  FO 


("index  variable  for  history  array 
(‘index  variable  for  printing  ccr.suxotio: 


a  v * 


.  histcrv 
historv : 


rr.orr  Tvpr 

rr.ech  :  writein!  TASK  FORCE  TYPE 

ir.f  :  wnteln (  1  TASK  FCRCE  TYPE 

end;  ( "end  case  statement*') 
case  history tf  sice  o 


. ' . date  ;  • 


ARNO? 

INFANT? 


or. 


itelr.r  TASK  FORCE  SIZE 


Lr.(  iftsF 
L.n  (  '  TASr 
end;  (‘end  case  statement") 
if  historvf.j.  .mission  =  attack  then 

vntein(  MISSION  ATTACK 

else  wnteln(  1  MISSION  DEFEND 

case  history (. j .). duration  of 

first_day  :wnteln(  DURATION 

succeedmg_day  :wntelr.(  1  DURATION 
end;(Kend  case  statement*) 
case  histcrv( . j ,). intensity  of 

hi  :  writein (  CCMEAT  INTENSITY 

mid  =  writein i 1 CCMSAT  INTENSITY 
low  :  writein ( 1 CCMBAT  INTENSITY 
end;  ("end  case  statement") 
writein ( 'OPERATION  NAME 
case  history( . j . ) .area  of 
cor.us  ;  writeir.f  'AREA 
eurcpe  :  wnteln ('  AREA 
korea  :  writelnv 'AREA 
end;  ("end  case  statement*) 
wr ite In (' COUNTRY  '  nistory( 

case  history (. j .) .climate  of 

hot  :  wr:teir.(  'CLIMATE 


EA77ALI ' 
5RI SAI E 


FIRST  : 

c..  ..tr. 


AY 

ING 


,  history f . operations 

CONUS ' ( ; 

EUR. CPE  1  )  ; 

KOREA  ; 

) .country) ; 
HOT  )  ; 
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O 


TEMPERATE ' ) ; 
COLD1  ) 


temperate  writeln/ ' CLIMATE 
cold  :  writeln/ 1  CLIMATE 

end,-^*end  case  statement*) 
case  history (. j .). terrain  of 
open  :  writeln/ ' TERRAIN 
woods  :  writeln( ' TERRAIN 
built_up  :  writelnt  ' TERRAIN 
mountains:  writeln/ ' TERRAIN 
end;  ("end  case  statement*) 
case  historv( . a ,) .visibility  of 
ocod  :  writeln/ ' VISIBiLTY 
fair  =  writeln  'VISIBILTY 
poor  :  writeln/ 'VISIBILITY 
er.d:  ;  "end  case  statement") 
if  mstory( .  j  .  ;  .Ar_ground  spt  =  true  then 

write  in / ‘  Ar  GROUND  SUPPORT  YES') 

else  writeln/  '  AF  GROUND  SUPPORT  NO'); 

if  history (. j .) .mcpocondition  =  true  then 
writeln ( 'MOFP'  LEVEL  3/4  YES1) 

else  wnteln(  'MOP?  LEVEL  3/4  NO  1  )  ; 

write (  PERSONNEL  STRENGTH  1 ) ; 
vr ltein/history ( . j . ) .personnel_strength :4) ; 
if  his torv( . j .). ration  Dolicy  =  b_c  b  then 
writeln( 'RATION  POLICY  "b_c_b ' ) 

else  writeln (' RATION  POLICY  c_c_b' 

if  .history/  .].),•  update  =  true)  then 


OPEN ' ) ; 

WOODS  1 ) ; 
BUILT  UP1 ) ; 
MOUNTAINS ' ) ; 


:  histcry( . 3 . ) . update_source 
none  :  writeln/ ' UPDATE 


estimate  :  writeln  1  UPDATE  SOURCE  ESTIMATE') 

factual  :  writeln/ 'UPDATE  SOURCE  FACTUAL1); 

end  ("end  case  statement") 
else  wnteln(  'UPDATE  SOURCE  NONE1); 

writeln jwriteln; 

write ( 'HISTORICAL  DATA  AVAILABLE  '): 
if  history( .  j  . )  .  ar.aIogy_info .  num_anaiogies  >  0  then 
begin 

write  In ( 'YES' ) ; 
writeln; 

write/ 1  DATE  '); 

for  i:=  1  to  history/ .j .) .analogy_info.num_analogies  do 
begin 

write/history/ . j . ) . analogy_info . analogies ( . 1. ) .dat 
write/'  ') 
end; 

writeln; 

write/1  UNIT  '); 

for  i.-=  1  to  history/ .  j  .).  analoqy_mfo.  num_analooies  do 
write  (history  ( .  j  . )  •  analogy_into .  analogies  (  .  1 .  uni: 
writeln; 
end 

else  writeln/ 'NO'); 
write In; write In ; 

write/ 1  ) ; 

writeln/ 'LOGISTICS  ESTIMATE'); 
wnteln;writeln; 

write/'  SUPPLY  ITEM  GENERAL  ESI.  AIJYSTMFNT 

writeln/'  FINAL  EST.  ACTUAL  CONS.'): 

writeln  ,-writeln; 

for  i:=  1  to  num_supply_items  do 
begin 

write  (history  / .  1  .  )  .  consumption;  .  1 .  )  .  supc  1  .  * 

write / '  '); 

write/history/ .  l .)  .consumption/ .  1 .  .  eerie  :  a .  «  • 

write  (' 


of 

SOURCE 


UPDATE  SOURCE 
UPDATE  SOURCE 


NONE  1 ) ; 
ESTIMATE ' ) 
FACTUAL ' ) ; 


write ( '  ' ) ; 

write /history/ . 3 . ) . consumption/ . 1 . 
write/1 

write  <  history/ .  j  . )  .  ccnsuroticr.i  .  .  . 

write / '  ■  )  ; 

write  /history/  .  3  . )  .  ccnsumot  icr.  .  1 . 

write v 1  1 ^ ; 

write  /history  /  .  j  .  )  .  ccr.sump t : : n  .  . 


>  I  I  t.t  «-«  i.  I.t  I 


writeln(history( . j . ) .consumption . i. ) .unit_of_measure :6) ; 
writeln 

end;  (*end  printing  out  consumption  array*) 

oage 

end  (*end  printing  all  the  files  in  the  history  array*) 
end;  (*end  procedure  print_history*) 

^  **★★*★**★**★*  *★*★★★***★★★★★★* **★★**£*★* **★★** **************** A******* 

MODULE  PRINT  DIRECTORY 

*****h****************************  A  A*kA*k*k*xx****A  **************  ****  ) 

procedure  print_directory ; 
var 

history_count  :  integer;  (*index  variable  into  hitory  array  *) 

continue_char  :  char;  (*user  response  to  continue  program  *) 

begin 

write In; write In; 

write('  '); 

writeln( 'DIRECTORY' ); 
write in; write In write  In; 

if  fiie_counter  =  0  then  writeln( 1  There  are  no  files  in  storage.') 
else  begin 

writeC  DATE  UNIT  MISSION'); 

writelnC  UPDATED'); 

writeln,- 

for  nistory_count :=  1  to  file_counter  do 
begin 

write( '  ' ,history( .history_count. ) .date) ; 

write( '  ' ,history( .nistory_count. ) .unit) ; 

if  history( .history_count .) .mission  =  attack  then 
writeC  ATTACK') 

else  writer  DEFEND')- 

if  history( .history_count. ) .update  =  true  then 


writeln( ' 
else  writeln( ' 
writeln 
end 
end; 

writeln; 

write (  '  '); 

vritej.n( 'Enter  c  to  continue'); 
repeat 

readln(continue_char) 
until  continue  char  =  ' c ' ; 


)  .  updai 
YES'  ) 
NO '  )  ; 


nd  procedure  print_directory*) 


^*********************************************************************** 

MODULE  END  SESSION 

procedure  end_session; 

v?.r 

i  :  integer;  (*index  variable  to  write  historical  files  to 

secondary  memory  *) 

beain 

'finished  :=  true; 

rewrite (history  file ,' hist  oprecord  a'); 
for  i:=  1  to  file  counter  do 

write(histcry_£ile,history( . i. ) ) ; 
writelr.,-vriteln ; 

write  In r This  session  is  now  over.'); 
writeln.-writeln; 

writeln('The  key  to  modern  warfare  is  logistics!') 
end;  ('end  procedure  end_session* ) 


V  .S  .*•  .v 


(A********************************************************************** 

MAIN  PROGRAM 

************************** ****** **************** ***************** ****** ) 


begin  (*  main  program  *) 
initialize; 
repeat 

module_choice ; 
case  module_code  of 
'1'  :  log_estimate ; 

'2'  history_update; 

'3'  :  delete  record; 

'4'  :  print_nistorv; 

'5'  :  print_directbry ; 
'6'  :  end_session 
end;  (*end  case  statement*) 
until  finished  =  true 


end.  (*end  main  program*) 


APPENDIX  E 

PARTIAL  PROGRAM  IMPLEMENTATION  IN  COMMON  LISP 


This  program  is  a  partial  implementation  of  the  automated-logistics-planning 
system  in  Appendix  D.  Specifically,  this  program  performs  the  referencing  and 
calculations  necessary  to  create  the  general  estimates  for  the  same  supply  items 
identified  in  the  automated  logistics  plans  in  Appendices  A  and  B.  The  driver  of  the 
program  is  function  try.  The  principal  data  structures  of  the  program  are  the  user- 
defined  structures:  operation,  task  force,  and  supply-item.  The  program  accepts  input 
data  on  task  force  composition  and  operation  attributes  in  the  same  manner  as  the 
Pascal  implementation  of  the  program.  There  is  no  error  checking  done  of  user  input. 
Function  create-supply-item  performs  the  referencing  and  calculating  involved  in 
creating  estimates  in  accordance  with  current  Army  doctrine.  The  program  stops  here. 
Two  output  documents  are  produced  by  the  program: 

1.  Task  Force  Composition 

2.  Automated  Logistics  Plan 

These  documents  are  almost  identical  to  their  counterparts  in  appendices  A  and  B. 
The  program  does  not  permanently  store  information  about  the  estimates  it  creates  nor 
does  it  conduct  any  of  the  reasoning  discussed  in  chapter  3.  One  of  the  interesting 
features  of  user-defined  structures  in  Common  Lisp  is  that  after  a  structure  has  been 
defined,  Common  Lisp  provides  functions  that  insert  and  retrieve  data  from  fields 
within  instances  of  the  defined  structure.  Make-  <  structure  name  >  is  such  a  function. 
It  creates  an  instance  of  a  structure.  The  format  of  this  function  results  in  code  that  is 
easy  to  read  and  understand.  Specifically,  make-  <  structure  name>  requires  the 
programmer  to  place  the  value  for  the  fields  of  the  instance  of  the  structure  next  to  the 
corresponding  field  names.  The  program  follows. 


i 

( 

♦ 


(defun  try  () 

(format  t  "  ") 

(create-operation) 

(format  t  11  11 ) 

( terpri) (terpri) (terpri) (terpri) 
(create- taskforce) 

( create -supply- item) 

(format  t  "  ") 

(write-output) 

(logistics -output) 

(format  t  '  ") 

( taskforce-output) ) 


(defstruct  operation 
date 
unit 
mission 
climate 
area 
tf-type 
tf-si2e 
intensity 
moppcondition 
personnel 
ration-policy) 


(defun  create-operation  () 

(setq  opl  (make-operation  sdate 

:unit 

smission 

:climate 

:area 

: tf-type 

: tf-size 

:  intensity 

•.moppcondition 

.•personnel 

:ration-policy 


( read-date) 

i  read-unit) 
read-mission) 
read-climate) 
read-area) 
read- tf-type) 
read-tf-size ) 
read- intensity) 
read-moppcondition) 
read-personnel) 
read-rations) ) ) ) 


(defun  read-date  () 

(terpri) (terpri) (terpri) (terpri) (terpri) 

(princ  ‘'ENTER  THE  DATE  OF  THE  OPERATION.  ") 

(read) ) 


(defun  read-unit  () 

( terpri) 

(orinc  ‘‘ENTER  THE  NAME  OF  THE  UNIT, 
(read) ) 


) 


(defun  read-mission  () 

f  princ  ^'ENTER  THE  MISSION  TO  BE  PERFORMED.  ") 

( read) ) 


(defun  read-climate  () 

(terpri) 

princ  "ENTER  THE  CLIMATE  IN  WHICH  THE  ") 

(terpri) 

(princ  '•  OPERATION  WILL  CONDUCTED.  ") 

(read) ) 


(defun  read-area  () 

(terpri) 

(princ  "1 
(terpri) 

(princ  r'  THE  OPERATION  WILL  TAKE  PLACE, 

(read) ) 


'ENTER  THE  AREA  OF  THE  WORLD  IN  WHICH 


") 

") 


(defun  read-tf-type  () 

(terpri) 

(princ  ''ENTER  THE  TYPE  OF  TASK  FORCE  CONDUCTING 
(terpri) 

princ  '•  THE  OPERATION, 

read)) 


") 

") 


(defun  read-tf-size  () 

(terpri) 

(princ  "ENTER  THE  SIZE  OF  THE  TASK  FORCE.  ") 

(read)) 


(defun  read- intensity  () 

(terpri) 

(princ  ''ENTER  THE  INTENSITY  EXPECTED.  ") 

(read)) 


(defun  read-moppcondition  () 

(terpri) 

ormc  "I 
:erpri) 

^jorihc  ' 

ENTER  YES  OR  NO 


terpri) 
(princ  " 
.read)) 


MOPP  LEVEL  3/4  ? 


") 

") 

") 


(defun  read-personnel  () 
i  terpri _ 

nri  n/"  ■* 


princ  "ENTER  THE  TOTAL  NUMBER  OF  PERSONNEL 
terpri) 
princ  r‘ 
read) ) 


IN  THE  TASK  FORCE 


") 

") 


(defun  read-rations  () 

!  terpri) 

princ  "ENTER  THE  RATION  POLICY  DURING  THE  ") 

terpri) 

princ  "  OPERATION.  EITHER  b-c-b  or  c-c-b  ") 

read) ) 
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(defstruct  supply-item 
water 
b- rations 
mre-rations 
class -I I -supplies 
diesel-fuel 
class -IV- supplies 
class -VI I -supplies 
class-VI II- supplies 
class- IX- supplies 
tank-ammo- 105mn 
tow- ammo 
dragon-ammo 
how£tzer-ammo-105mm 
howitzer- ammo- 15 5mm 
howitzer-ammo-3in 
vulcan-ammo-20mm 
mortar-ammo-31mm 
mortar- ammo- 107mm 
mg- ammo- . 50-caliber 
mg- ammo-7 .62mm 
nfle-ammo-5 . 56mm) 


(defun  create-supply-item  () 

(setq  supl 

(make- supply- item 
z'water 
:b-rations 
:mre-rations 
:  class- II-supplies 
:diesel-fuel 
:  class- IV- supplies 
;class-VII-supplies 
sclass-VIl I -supplies 
sclass-IX- supplies 
:  tank-amrno-105mm 


:  tow- ammo 
: dragon-ammo 
: howitzer-ammo- 105mm 
:  howitzer -ammo- 15 5mm 
:  howitzer -ammo- 8in 
:vulcan-ammo-20mm 
:mor tar- ammo- 81mm 
:mor tar- ammo- 107mm 
:mg-ammo- . 50-caliber 
:mg-ammc-7 . 62mm 
:  rifle-ammo- 5 . 56mm 


iwater-est) 
b-rats) 
mre-rats) 

compute-factor  3.67) 
diesel) 

compute-factor  4) 
compute-factor  15) 
compute-factor  1.22) 
compute-factor  2.50) 
vcompute-ammo  (+( taskforce-ml  tfl) 
(taskforce-m2  tfl)^ 


52  62  29  35  10  12  ) 
(taskforce-tows  tfl) 

7  9  4  6  2  4  ) 
(taskforce-m222  tfl) 

2  3  12  11) 
(compute-ammo  (taskforce-ml02  tfl) 

376  423  244  275  132  148) 
(taskforce-ml09  tfl) 

146  203  95  132  51  71) 
(taskforce-mllO  tfl) 

130  177  35  115  46  62) 
(taskforce-ml63  tfl) 

3964  4800  2241  2700  900) 
(taskforce-ml25ai  tfl) 

97  116  54  65  18  22) 
(taskforce-mlOSal  tfl) 

109  130  61  73  20  24) 
(compute-ammo  (taskforce-m2mg  tfl) 

175  210  99  118  33  39) 
(compute-ammo  (taskforce-m60mg  tfl) 

433  519  243  292  81  97) 
(compute-ammo  (taskforce-mlGai  tfl'; 

99  113  56  67  19  22  )))) 


(compute-ammo 
(compute -ammo 


(compute -ammo 
(compute-ammo 
(compute-ammo 
(compute-ammo 
(compute -ammo 
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■ 

I 


no) 

b-c-b)) 


no) 

c-c-b) ) 


(defun  water-est  () 

(cond  ((and  (equal  (operation-climate  opl)  'hot) 

(equal  (operation-moppcondition  opl)  'yes) 
(equal  (operation-ration-policy  opl)  'D-c-b)) 
(*  (operation-personnel  opl)  5.4)) 

((and  (equal  (operation-climate  opl)  'hot) 

(equal  (operation-mcppconaition  opl)  'yes) 
(equal  (operation-ration-policy  opl)  'c-c-b)) 
(*  (operation-personnel  opl)  4.9)) 

((and  (equal  (operation-climate  opl)  ‘hot) 

(equal  (operaticn-moppcondition  opl)  'no) 
(equal  (operation-ration-policy  opl)  'b-c-b)) 
(A  (operation-personnel  opl)  4.9); 

((and  (equal  (operation-climate  opl)  'hot) 

(equal  (operation-moppcondition  opl)  'no) 
(equal  (operation-ration-policy  opl)  'c-c-b)) 
(*  (operation-Dersonnel  opl)  4.4)) 

((and  (equal  (operation-climate  opl)  'temperate) 
(equal  (operation-moppcondition  opl)  'yes) 
(equal  (operation-ration-policy  opl)  'b-c-b) ) 
(*  (operation-personnel  opl)  4.7)) 

((and  (equal  (operation-climate  opl)  'temperate) 
(equal  (operation-moppcondition  opl)  'yes) 
(equal  (operation-ration-policy  opl)  'c-c-b)) 
(*  (operation-personnel  opl)  4.2)) 

((and  (equal  (operation-climate  opl)  'temperate) 
(equal  (operation-moppcondition  opl)  'no) 
(equal  (operation-ration-policy  opl)  'b-c-b)) 
(*  (operation-personnel  opl)  3.2)) 

((and  (equal  (operation-climate  opl)  'temperate) 
(equal  (operation-moppcondition  odI)  'no) 
(equal  (operation-ration-policy  opl)  'c-c-b)) 
(*  (operation-personnel  opl)  2.7)) 

((and  (equal  (operation-climate  opl)  ‘cold) 

(equal  (operation-moppcondition  opl)  'yes) 
(equal  (operation-ration-policy  opl)  'b-c-b)) 
(*  (operation-personnel  opl)  3.7)) 


(equal  ^cperation-ration-poiicy  opl 
(*  (operation-personnel  opl)  3.7)) 
((and  (equal  (operation-climate  opl)  'cold 
(equal  (operation-moppcondition  opl 
(equal  (operation-ration-policy  opl 
(*  (operation-personnel  odI)  3.2)) 
((and  (equal  (operation-climate  opl)  'cold 
(equal  (operation-moppcondition  opl 
(equal  (operation-ration-policy  opl 
(*  (operation-personnel  opl)  3.7)) 
((and  (equal  (operation-climate  opl)  'co±d 


'  yes) 
•c-c-b)) 


'no) 

'b-c-b) ) 


'no) 

' c-c-b) ) 


(defun  b-rats  () 

(cond  ((equal  (operation-ration-policy  opl)  'b-c-b) 
(*  (operation-personnel  opl)  2)) 

(t  (operation-personnel  opl;))) 

(defun  mre-rats() 

(cond  ((equal  (operation-ration-policy  opl)  'c-c-b) 
(*  (operation-personnel  opl)  2)) 

(t  (operation-personnel  opl)))) 


(defun  compute-factor  (x) 
(/  (*  (operation- 


(*  (operation-personnel  opl)  x  )  2000)) 


j^mVRIMPWBBUUUOUUIlUimvu^’ jvmniiv  nm  in  iru  www 


(defun  diesel  () 


to 


*  (taskforce-m2 

*  (taskforce-m2 

)  * 

}  k 

V  ^ 

|  * 
f  ★ 


;  taskforce-m2 
( taskforce-m3 
( taskforce-m3 
>taskforce-m3 
(taskforce-mll3 
(taskforce-mll3 
taskforce-mll3 
taskforce-m901 
taskforce-m901 
( taskforce-m901 
taskforce-ml25al 
,  taskforce-ml25al 
( taskforce-ml25al 
i taskforce-ml06al 
( taskforce-ml06al 
( taskforce-mlC6al 
( taskforce-ml02 
f taskforce-ml09 
( task£orce-ml09 
( taskforce-ml09 
( taskforce-mllO 
(taskforce-mllO 
( taskforce-mllO 
(taskforce-mlrs 
taskforce-mlrs 
. taskforce-mlrs 
( taskforce-ml63 
( taskforce-ml63 
( taskforce-ml63 
(taskforce-m730 
taskforce-m730 
( taskforce-m730 
( taskforce-ml 
(taskforce-ml 
(taskforce-ml 
, taskforce-m60 
(taskforce-m60 
(taskforce-m60 
((equal  (operation-area 
(+(*  (taskforce-m2 
”  (taskforce-m2 
(taskforce-m2 
( taskforce-m3 
ftaskforce-m3 
( taskforce-m3 
(taskforce-mll3 
(taskforce-mll3 
(taskforce-mll3 
( taskforce-m901 
taskforce-m901 
[  taskforce-m901 
,  taskforce-ml25al 
.  taskforce-ml25al 
( taskforce-ml25al 
( taskforce-mlC6al 
( taskforce-ml06al 
taskforce-ml06al 
,taskforce-mi02 
.taskfcrce-mlQO 
Ctaskforce-ml09 
( taskforce-ml09 
(taskforce-mllO 
taskforce-mllO 
'  taskforce-mllO 
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r  k 
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Jl)  'korea) 
tfl)  3.0 

6.4) 

tfl 

)  5.5 

13.0) 

tfl 

)  5.5 

3.6) 

tfl 

)  3.0 

6.4) 

tfl 

)  5.5 

13. 0) 

tfl 

5.5 

8.6) 

tfl 

3.1 

1.0) 

tfl 

5.5 

8.6) 

tfl 

)  5.5 

10.3) 

tfl 

)  3.0 

1 . 0 ) 

tfl 

)  5.5 

8.6) 

tfl 

5.5 

8.9 

tfl 

)  4.1 

1.0) 

tfl 

)  5.0 

8.6 

tfl 

5.0 

10.2) 

tfl 

)  4.1 

1.0 

tfl 

)  5.0 

10. o) 

tfl 

5.0 

13.3 

tfl 

)  24.0 

0.2) 

tfl 

)  4.1 

1.0) 

tfl 

)  6.0 

11.8) 

tfl 

5.5 

16.  l) 

tfl 

6.5 

1.6) 

tfl 

3.6 

12.5) 

tfl 

)  6.0 

14.3) 

tfl 

5.0 

1.0) 

tfl 

4.0 

6.2) 

tfl 

4.5 

8.9) 

tfl 

4.1 

1.0) 

tfl 

6.0 

5.2) 

tfl 

5.5 

13. 0) 

tfl 

4.0 

0.5 

tfl 

6.0 

1.3) 

tfl 

5.5 

2.6) 

tfl. 

5.2 

10.8) 

tfl 

3.3 

56.6) 

tfl 

3.4 

44.7) 

tfl 

4.6 

2.0 

tfl] 

6.5 

28. l) 

tfl) 

4.6 

35. 7  V 

1 europe) 

tfi) 

3.0 

6.4) 

tfi) 

5.5 

18.0) 

tfi 

5.5 

8.6) 

tfi) 

3.0 

6.4) 

tfi) 

5.5 

13. 0) 

tfi) 

5.5 

8.6) 

tfi) 

3.0 

1.0) 

tfi) 

5.5 

8.6) 

tfi) 

5.5 

10.3) 

tfi) 

3.0 

1.0) 

tfi 

5.5 

8.6) 

tfi) 

5.5 

8.9) 

tfi 

4.0 

1.0 

tfi) 

5.0 

8.6) 

tfi) 

5.0 

10.3) 

tfi) 

4.0 

1.0) 

tfi 

5.0 

10. o) 

tfi 

5.0 

13.3) 

tfi) 

24.0 

0.2) 

tfi) 

4.0 

1.0 

tfi) 

6.0 

11.8 

tfi) 

5.5 

16. l) 

tfi) 

4.0 

1.6) 

tfi) 

6.0 

12.5) 

tfi) 

5.5 

14.3) 

)) 


ifia 


(*  (taskforce-mlrs 
(*  (taskforce-mlrs 
(*  (taskforce-mlrs 
(*  (taskforce-ml63 
(*  (taskforce-ml63 
(*  (taskforce-mi63 
(*  ( taskforce-m730 
(*  ( taskforce-m730 
(*  ( taskforce-m730 
(*  (taskforce-ml 
(*  (taskforce-ml 
(*  (taskforce-ml 
(*  (taskforce-m60 
(*  ( taskforce-m60 
(*  ( taskforce-m60 
jqual  (operation-area 
[*  ( taskforce-m2 

i*  (taskforce-m2 
*  ( taskforce-m2 
*  ( taskforce-m3 
*  ( taskforce-m3 
(*  (taskforce-m3 
(*  (taskforce-mll3 
(*  ( taskforce-mll3 
(*  ( taskforce-mll3 
(*  ( taskforce-m90i 
(*  (taskforce-m901 
(*  (taskforce-ir.901 
(*  ( taskforce-ml25al 
{*  (taskforce-ml25al 
(*  (taskforce-ml25al 
(*  ( taskforce-ml06al 
(*  (taskforce-ml06al 
(*  (taskforce-miOSal 
(*  (taskforce-ml02 
(*  (taskforce-ml09 
(*  (taskforce-ml09 
(*  (ltaskforce-mlC9 
(*  (taskforce-mllO 
(*  ( taskforce-mllO 
(*  (taskforce-mllO 
(*  (taskforce-mlrs 
(*  (taskforce-mlrs 
(*  (taskforce-mlrs 
(*  (taskforce-ml63 
(*  ( taskforce-m!63 
(*  (taskforce-ml63 
(*  (taskforce-m730 
(*  ( taskforce-m730 
(*  (taskforce-m730 
(*  (taskforce-ml 
(*  (taskforce-ml 
(*  (taskforce-ml 
(*  (taskforce-m60 
(*  (taskforce-m60 
(*  ( taskforce-m&G 


tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfi 

tfl 

tfl 

tfl 

tfi! 

ODl) 

tfl) 

tfl 

tfl 

tfl 

tfl) 

tfl 

tfl 

tfl 

tfl 

tfl) 

tfi) 

tfl 

tfl) 

tfl) 

tfl) 

tfl) 

tfl) 

tfl) 

tfl) 

tfl 

tfl) 

tfl) 

tfl) 

tfl) 

tfl) 

tfl ) 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl) 

tfl 

tfl 

tfl 

tfl 

tfl 

tfl) 


5.0  44.7 


4.5  2. 

6.5  28. 

4.5  35. 
'conus) 

3.0  6.4) 


2.0 

28.1 

25.7))) 


3.4  44.7 


2.0) 

25 . 1 ) 
35.7))))) 


(defun  compute-ammo  (  x  ha  hd  ma  md  la  Id  ) 

(cond  ((and  (equal  (operation-mission  opl)  'attack) 
(equal  (operation-intensity  opl)  'hi)) 
(*  x  ha) ) 

((and  (equal  (operation-missicn  opl)  'defend) 
(equal  (operation- intensity  opl)  'hi)) 


.ry.v.vr 


((and  (equal  (operation-mission  opl)  attae 
(equal  (operation-intensity  opl)  mi 
(*  x  ma) ) 

((and  (equal  (operation-mission  opl)  defend) 
(equal  (operation-intensity  opl ,  mid) 
(*  x  mdj) 

((and  (equal  (operation-mission  opl)  attack) 
(equal  (operation-intensity  opl <  low , 
(*  *  la)) 

((and  (equal  ( operation-mission  opl)  defend) 
(equal  (operation- intensity  opl)  1 
(*  x  Id)))) 


(defun  write-output  () 

(terpri) (terpri) (terpri) (terpri) 
(princ  '•  OPERATION’' ) 

(terpn) 

(princ  "  date 

(prinl  (operation-date  opl)) 

(terpn) 

(princ  fl  unit  ") 

(prinl  (operation-unit  opl)) 

(terpri) 

(princ  fl  mission  ") 

prinl  (operation-mission  opl)) 
(terpri)  r 

(princ  "  climate  ••) 

(pnnl  (operation-climate  opl)) 
(terpn)  ^ 

(princ  "  area  '•) 

(prinl  (operation-area  opl)) 

(terpn) 

(princ  "  tf-type  ") 

(prinl  (operation-tf-type  opl)) 
(terpri) 

(princ  ''  tf-size  ") 

(pnnl  (operation- tf-size  opl)) 
(terpn) 

(princ  "  intensity  ") 

(prinl  (operation-intensity  opl)) 
(terpri)  r 

> princ  moppcondition  ") 

t  pnnl  (operation-moppcondition  opl ) ) 
(terpn)  * 

(princ  "  personnel-strength  ") 

(pnnl  (operation-personnel  cpl)) 
(terpn)  r 

(princ  "  ration-policy  ") 

vpnnl  (operation-ration-Dolicy  cpl ) ) 
(terpn))  *  r 


/y  m  1  •  *  . 


-r.  taskforce-output 
terpn  m  terpn  > 1  te. '  terpri )  ( ter 
pnr.c  TAmE.RCE  COMFCSITI 

t^rcri  •  •  t  *  ro  r i  t  *?  t  -  r 
p:  ir.c  Mi^NF  VEHICLE 

p  r  :  he*  MI  CAV  FIGHT:::;  VEHICLE 
pro.'..  tsskforce-ml  tfl 

•  e  :'C  r  i 

Mill  ?ER5  CA.-RIER 

r  ■  »t.  I  taJAfo.-Ce-tSi.I  tfl)) 

mini'  M901  :et  veh  I  tv 
:  rv,.  taikfcrte-ir.9.,:  tfl)) 

*  A  ~  i  ^ 

t-ihc*  hi:=a:  sir:  carrier 

pnr.i  t  a  s r  c  r  c  e  -  x  1 2  5  a  1  tfl)) 


mic-.a:  i  i^mm  carrier 

taskf orce-ml 26 a!  til)) 

MI 22  i 2 EMM  HCWITZER 
:  taskicrce-x.:  22  tfl ;  ) 


p  :  »:.c  MI  29  1 5  EMM  S?  HCWITZER 
prm.i  ( tas»c:crce-.-ni29  tfl  )  ) 
t  e  r  o  r  i ; 

pnr.c  Mill  5INCH  S?  HCWITZER 
tnr.l  ( taskcorce-ir.i::  tfl  >, 

p’rlr.c*  LAUNCH -LOAD  MLP.S 

;  tas<if orce-xlr 3  tfl  )' 

mine*  MI6-  VULCAN  AIR  DEFENSE 
pnnl  taskfcrce-x.163  tfl  )) 

1 2 rcr i ; 

print  '  M^3I  CHAP  AIR  DEFENSE 
mini  :  taskf orce-m?30  tfl)) 

tt" in:  Ml  TANK  105MM 

nr.:  ;  taskfcrce-ir.l  tfl  )) 

-  -  :  p  •  *  / 

tr  me  1  MIC  TANK  12  EMM 
tr.nl  ' taskferce-moO  tfl)) 

mi  r.c*  TCW  LAUNCHER 
tnr.l  ( taskforce-tows  tfl)) 
taron  ; 

:  nr. :  1  M222  DRAGON  LAUNCHER 
tnr.l  t  taukforce-m222  tfl); 

trine*''1  M2  52  CALIBER  MG 
mini  [  taskf  orce-m2ma  tfl)) 
terpri 

tnr.c  "  M62  MG 

mini  ( taskforce-m60mg  tfl)) 

:  e  ro  r  l ) 

mine  "  M16A1  RIFLE 

;rml  ( taskforce-n!6al  tfl  )) 

13 1  t  •'  )) 


(defun  logistics-output  () 
(terpri) (terpri) 


terpri) ( 

?rinc  " 
erpri) ( 
princ  11 
terpri) ( 


(terpri) 
(princ  " 
(format 
(princ  " 
( terori) 
(princ  " 
(‘format 
(princ  " 
(terpri) 
(princ  " 
(format 
(princ  " 
(terpri) 
(princ  " 
(format 
(princ  " 
(terpri) 
(princ  " 
(format 
(princ  " 
(terpri) 
(princ  " 
(format 
(princ  11 

! ‘"terpri) 
princ  " 
format 
princ  " 
terpri) 
princ  " 
format 
(princ  " 
(terpri) 
(princ  " 
( format 
(princ  " 
( terpri) 
(princ  " 
( format 
(pr-;nc  11 

!  terpri) 
princ  11 
format 
princ  " 
terpri) 
princ  " 
format 
(Drinc  " 
(terpri) 
(princ  " 
(format 
(princ  " 
(terpri) 
(princ  " 
(format 
(princ  " 
( terpri) 
(princ  !l 
(format 
(princ  " 
terpri) 
(Dnnc  " 
'  'format 
(princ  " 
(terpri) 


(terpri) 

SUPPLY 


LOGISTICS  ESTIMATE  ") 

GENERAL  ESTIMATE") 


SUPPLY  ITEM  GENERAL  ESTIMATE") 

(terpri) (terpri) 

Water  ") 

t  "  10D"  (round  (supply-item-water  supl))) 
gallons") 

B-Rations  ") 

t  "  10D"  (supply-item-b-rations  supl)) 
rations" ) 

MRE-Ration  11 ) 

t  "  10D"  (supply-item-mre-rations  supl)) 
rations  ") 

Class  II  Supplies  ") 

t  "  10D"  (round  (supply-item-ciass-II-supplies  supl))) 
STONS  11 ) 

Diesel  Fuel  ") 

t  "  10D"  (round  (supply-item-diesel-fuel  supl))) 
gallons  ") 

Class  IV  Supplies  ") 

t  "  10D"  (round  (supply-item-class-IV-supplies  supl))) 
STONS  " ) 

Tank  ammo  105mm  ") 

t  "  10D" (supply-item-tank-ammo-105mm  supl)) 
rounds  ") 

TOW  ammo  " ) 

t  "  10D"  (supply-item-tow-ammo  supl)) 
rounds  ") 

DRAGON  ammo  " ) 

t  "  10D"  (supply-item-dragon-ammo  supl)) 
rounds  " ) 

Howitzer  ammo  105mm  ") 

t  "  10D"  (supply-item-howitzer-ammo-105mm  supl)) 
rounds  ") 

Howitzer  ammo  155mm  ") 

t  "  10D"  (supply-item-howitzer-ammo-155mm  supl)) 
rounds  ") 

Howitzer  ammo  8  inch  ") 

t  "  10D"  (supply-item-howitzer-ammo-8in  supl)) 
rounds  ") 

Vulcan  ammo  20mm  ") 

t  "  10D"  (supply-item-vulcan-ammo-20mm  supl)) 
rounds" ) 

Mortar  ammo  81mm  " ) 

t  "  10D"  (supply-item-mortar-ammo-81mm  supl)) 
rounds  ") 

Mortar  ammo  107mm  ") 

t  "  1CD"  (supply-item-mortar-ammo-107mm  supl)) 
rounds  ") 

MG  ammo  .50  caliber  ") 

t  "  10D"  ( supply- item-mg-ammo- . 50-caliber  sudD) 
rounds  ") 


frmc  ' 
ormat 

?rinc  ' 
erpri) 
princ  '' 
format 
princ  1 
terpri) 

( princ  •' 

( format 
(princ  1 
(terpri) 
princ  *' 
format 
orir.c  1 
terpri ) 
princ  r 
format 
or  me  ’ 
terpri) ) 


MG  ammo  7.62mm  ") 

"  10D"  ( supply-item-ma-ammo-7 .62mm  supl)) 
rounds  " ) 

rifle  ammo  5.56mm  ") 

"  10D"  (supply- item-rifle-ammo-5. 56mm  supl)) 
rounds  ") 

Class  VII  supplies  ") 

"  10D"  (round  (supply-item-class-VII-supplies  supl))) 
STCNS  ") 

Class  VIII  supplies  ") 

"  1GD"  (round  ( suppiy-item-class-VIII-supplies  supl))) 
STONS  ") 

Class  IX  supplies  ") 

"  10D"(round  ( supply- item-class-IX-supplies  supl))) 
STONS  " ) 
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